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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR- 
PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
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THE SOFTWARE DESCRIBED IN THIS DOCUMEN' IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
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RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLED BY DIGI- 
TAL. 
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2. REQUIREMENTS 



0 ' 

i • iu:^ viACRO ►'T'15 Oe-APR-81 K:07 PAGE A SFCjF'j' ^ 

1, ABSTRACT 

84 THIS PROGRAM IS MADE UP OF 11 SUBTESTS TO CHECK OUT THE POWER FAR 

85 ON THE n/4A. THE 2 MSEC. POWER DOWN AND POWER UP TIME IS CHECKED ON 

EACH POWER FAIL. INITIALLY POWER FAILS ARE TRIED IN ALL PROCESSOR 
hODES THEN UNDER ERROR CONDITIONS LIKE STACK OVERFLOW, TIME OUT, AND 

^8 ODD ADDRESS AND MEMORY MANAGEMENT ABORTS. FINALLY A MEMORY VOLATILITY 

w'v TEST IS RUN ON ALL AVAILABLE MEMORY. 

v 

94 2.1 EQUIPMENT 

95 

% PDP 11 /4A STANDARD COMPUTER WITH UP TO 1M WORDS OF CORE MEMORY, THIS 

97 PROGRAM WILL WORK WITH AUTOMATIC POWER FAIL HARDWARE (MANUFACTURING 

98 ONLY) OR WITH MANUALLY TRIGGERED POWER FAILURES FOR EACH TEST. 
99 

100 

101 2.2 STORAGE 

102 

103 PROGRAM STORAGE - THE ROUTINES USE MEMORY 0 - 10K2 

10A 
105 

106 2.3 PRELIMINARY PROGRAMS 

107 

108 IT IS ASSUMED THAT CPU, TRAPS .MEMORY MANAGEMENT AND UNI6US MAP D'AGNOS- 

109 TICS HAVE BEEN RUN SUCCESSFULLY. 
'10 
111 
112 

115 3. LOADING PROCEDURE 

114 

115 USE STANDARD PROCEDURE FOR "XXDP" MEDIA. 

116 

117 4. STARTING PROCEDURE 

118 

119 A.I STARTING ADDRESS 

120 

1?1 200 IS THE PROGRAM STARTING ADDRESS 

122 

123 A. 2 CONTROL SWITCH SETTINGS 

124 

125 SWITCH REGISTER <14> CONTROLS REPEATING OF A FAILING TEST. THIS BIT 

126 MUST BE SET TO A 1 (AFTER ERROR HALT) EVERY TIME THE TEST IS TO BE 

127 REPEATED. 
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SEQUENCE 



'3 
'I 

153 
134 

135 
136 
137 
138 

139 
HO 
U1 
142 
H3 
H4 
145 
146 
147 
H8 
149 
150 
151 
152 
^53 
'54 
155 
156 
157 
158 
159 
160 
161 
162 
'63 
164 
165 
166 
167 
168 
169 
170 
171 
17? 
173 
174 
175 
176 
V7 

178 
^7q 



5. 

5.1 



5.2 



5.3 



OPERATING PROCEDURE 
MANUAL 

A^ME SSAGE^WILL^^BE'^^yPED^JNDENT IF YING THE NAME OF THE PROGRAM, THE SIZE 
OF MEMORY. AND RUNNING INSTRUCTIONS. THE NUMBER OF EACH TEST WILL BE 
PRINTED AT THE BEGINNING OF EACH TEST. MANUALLY POWER DOWN THEN UP 
AFTER EACH TEST NUMBER APPEARS ON THE TTY. DO THE POWER DOWN AND UP 
FOR EACH T:ST UNTIL THE END OF PASS MESSAGE IS RECEIVED. RANDOM 
CHARACTERS (INCLUDING FORM FEED) MAY PRINT DURING POWER CYCLING. THIS 
IS ACCEPTABLE. 

AUTOMATIC 

START THE PROGRAM AT 200. THE PROGRAM SIZES FOR THE PRESENCE OF AUTO- 
MATIC POWER FAIL HARDWARE. IF FOUND, TESTING WILL BF PROCEED WITH NO 
MANUAL INTERVENTION REQUIRED. TEST NUMBERS WILL BE PRf^TE^ P^ipR JO 
EACH TEST. RANDOM CHARACTERS (INCLUDING FORM FEED) MAY PRINT DURING 
POWER CYCLING. THIS IS ACCEPTABLE. 

APT SETUP 

THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS ARE FOR 
EXECUTION WITH A 11/44 PROCESSOR. CACHE. 16K CORE MEMORY. AND 300 BAUD. 

THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 

1. E TABLE "A" IS USED FOR APT DUMP MODE. 

2. E TABLE '8' IS USED FOR APT QV AND RUN TIME MODES. 
$ENVM=240 SUPRESSES TYPEOUTS TO THE TERMINAL AND 
$SWREG=4000 INHIBITS TEST ITERATIONS 



1ST PASS 
RUN TIME 
5 



E-MODE/S-MODE 
($ENVM/$ENV) 

SWITCH REGISTER 1 
(SSWREG) 

SWITCH REGISTER 2 
CPU TYPE/OPTIONS 
MEMORY MAP CODE 1 



LONGEST 
TEST TIME 
5 



E TABLES 



A 

000/000 



000000 



000000 

00/0000 

000/00000000 



ADDITIONAL 
RUN TIME 
0 



B 

240/001 



004000 



000000 

00/0000 
000/00000000 
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•» 5.4 SUBROUTINE ABSTRACT 

if^ PDWDWN AND POUUP 



IV THESE ROUTINES ARE USED TO SAVE AND RESTORE VITAL REGISTERS AND TEST 

1g5 THE TIME ALLOWED FOR POWER FAIL BY THE PROCFSSOR, 
186 

ip 6. ERRORS 

189 6,1 ERROR PRIN'OUT 

]o9 THE PROGRA^I WILL IDENTIFY THE FAILING TEST AND PROVIDE PERTINENT INFOR- 

-[qi- MAT I ON ON ERROR. 

6.2 ERROR HALTS 

122 AFTER AN ERROR PRINTOUT, THE PROGRAM WIL.. HALT AND RETURN CONTROL 

\^ TO THE CONSOLE. IF USING POWER FAIL HARDWARE AND YOU WISH TO STOP 

90 THE PROCESSOR YOU SHOULD USE THE HALT SWITCH ON THE FRONT PANIl. THE 

CONSOLE CTRL P WILL HANG UP TTY. TO GET IN CONSOLE MODE PUT HALT 

POO SWITCH ON. TO GET BACK INTO PROGRAM SET THE SWITCH TO RUN. 

lal IF AN ERROR OCCURS IN TEST 11 (THE MEMORY VOLITILITY TEST) THE 

$ca PHYSICAL ADDRESS OF THE BAD MEMORY LOCATION CAN BE FOUND BY USING 

Sfu PAR. OFF AS BITS <21:6> AND ADDING VIR.ADD LOCATION <12:0> 10 IT. 

pAc IF AN ERROR IS DETECTED IN THE POWER DOWN OR POWER UP SUBROUTINE 

Pol THEN CONTINUING AFTER THE ERROR HAlT.WILL RESTART THE PROGRAM AT 

207 ADDRESS 200. 

209 6.3 ERROR RECOVERY 
210 

2^^ CONTINUE OR RESTART AT 200 

212 
213 

f>U 7. RESTRICTIONS 
21s 

216 f^ONE 

P18 8. MISCELLANEOUS 
219 

220 8.1 EXECUTION TIME 

222 5 SEC IF IN AUTOMATIC . N/A IF IN MANUAL 
223 

2h 8.2 STACK POINTER 

22^ STACK IS INITALLY SET TO nOO 

228 X 
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TITLE CKKACCO 11 /AA POWER FAIL 
•COPYRIGHT (C) 1981 
•DIGITAL EQUIPMENT CORP. 

•MAYNAPD, MASS. 0V5A 
• 

•PROGRAM BY DAN MILLEVILLE 
« 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5). JAN, 1981. 



.S8TTL OPERATIONAL SWITCH SETTINGS 
* 

SWITCH USE 



14 
10 



LOOP ON TEST 

INHIBIT BELL AT END-OF-PASS 



0011 00 
001100 
000700 
000600 
1 OA 000 
OOOOOA 
177776 
177776 

1 imt, 

M7772 
177570 
177570 
1775A6 

000011 
000012 
000015 
000200 

000000 
000001 
000002 
000003 
OOOOOA 
000005 
000006 
000007 
000000 
000001 
000002 
000003 
OOOOOA 
000005 
000006 
000006 
000006 



.S8TTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER ••• 1100 



STACK- 1100 
KERSTK= STACK 
SUPSTK- STACK-200 
USESTK= STACK-300 
ERR0R=EMT 
SC0PE=I0T 
PS= 177776 
PSW=PS 

STKLMT= 17777A 
PIRQ= M7772 
DSWR= 177570 
DDISP= 177570 
LKS- 1775A6 



FIRST ADDRESS OF THE STACK 
KERNEL STACK 
SUPERVISOR STACK 
USER STACK 



; .-PROCESSOR STATUS WORD 

;; STACK LIMIT REGISTER 

; .-PROGRAM INTERRUPT REQUEST REGISTER 

;; HARDWARE SWITCH REGISTER 

.-.-HARDWARE DISPLAY REGISTER 

.-.-LINE CLOCK (KW11-L) STATUS REGISTER 



.••MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 

LF= 12 ;;CODE LINE FEED 

CR= 15 .-.-CODE CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 

.-•GENERAL PURPOSE REGISTER DEFINITIONS 



RO 
R1- 
R2- 
R3- 
RA 
R5- 
R6- 
R7- 

R10-R0 
R11=R1 
R12 R2 
R13-R3 
R1A RA 
R15=R5 
SP- 

KSP SP 
SSP-SP 



xo 

XI 
X2 
XI 
XA 
X5 
X6 
X7 



; .-GENERAL REGISTER 

;; GENERAL REGISTER 

.-.-GENERAL REGISTER 

;; GENERAL REGISTER 

; .-GENERAL REGISTER 

;; GENERAL REGISTER 

;: GENERAL REGISTER 

; .-GENERAL REGISTER 



X6 



;; STACK POINTER 
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SEOUEMCE 





USP=SP 






PC= 


X7 




.••PRIORITY LEV 




PRO- 


0 




PR1- 


40 




PR2= 


100 




PR3= 


140 




PR4= 


200 




PR5- 


240 


nnn?nn 

UV/v jUU 


PR6= 


300 




PR7- 


340 




: •"SWITCH REGI 


1 onnnn 


SW15 


100000 




SW14 = 


40000 




SU13- 


20000 


010000 


SW]2= 


10000 




SU11 = 


4000 




SU10= 


2000 




SW09- 


1000 




SW08= 


400 


U W^ WW 


SW07= 


200 


VVV 1 vw 

onnn.'.n 


SU06 


100 


SU05- 


40 




SW04= 


20 




SW03= 


10 




SW02= 


4 


nnonop 


SUOI- 


2 




suoo- 


1 




SU9=SU09 


000400 


SU8=SW08 


OOOPOO 


SU7=SW0?' 


000100 


SU6=SW06 


000040 


SW5=SU05 


OOOOPO 

vWVC w 


SU4=SW04 


000010 

WW 1 w 


SW3=SU03 


000004 

V W W" 


SU2-SW02 


ooooOp 


SWl^SWOl 


000001 


SUO SWOO 




.••DATA 


BIT DEF 


1 00000 

' v WW 


BIT15= 


100000 


040000 

VM WW 


BIT14= 


40000 


OPOOOO 

yjc WW 


B]T13= 


20000 


D 10000 

v 1 WW 


BIT12= 


10000 


00^000 

W*t vw 


BIT11- 


4000 


oOpooo 

Wt v/ W 


BIT10- 


2000 
'000 


001000 

W 1 V W 


BIT09= 


000400 
WW"* w 


BIT08= 


400 


OOOPOO 

u wc w 


BIT07- 


200 


000700 

w W 1 W 


BIT06= 


100 


000040 

W W"f v 


B]T05= 


40 


000020 


BIT04= 


20 


000010 


BIT03- 


10 


000004 


BIT02= 


4 


000002 


BITOU 


2 


000001 


Bnoo= 


1 


001000 


BIT9=eiT09 


000«00 


BIT8=8IT08 



;; PROGRAM COUNTER 
DEFINITIONS 

;PRI0RITY LEVEL 0 
;PRIORITY LEVEL 1 
;PRIORITY LEVEL 2 
iPRIORITY LEVEL 3 
;PRIORITY LEVEL 4 
;PHIORITY LEVEL 5 
;PRIORITY LEVEL 6 
^PRIORITY LEVEL 7 
SWITCH DEFINITIONS 



(BITOO TO BjnS) 



POWER 
' :M M0N5 



FAIL 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000100 
000114 
000240 
000250 

177740 
1 7771.2 
1 77744 
\777t,t 
177750 
177752 

1 77760 

177762 

1 77764 
1 77766 



177572 
177574 
177576 
172516 
177572 
177574 
177576 
172516 

1 77600 
1 77602 
1 77604 
1 77606 
177610 
177612 
1776U 
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B]T7=8]T07 
BIT6=aiT06 
BIT5=8IT05 
BIT4=8IT04 
BIT3=8IT03 
BIT2=aiT02 
BIT1=8IT01 
BIT0=8IT00 
.-•BASIC "CPU 
ERRVEC= 4 
RESVEC= 10 
T8ITVEC=14 
TRTVEC= 14 
BPTVEC= 
I0TVEC= 
PWRVEC= 
EriTV'EC= 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
LKVEC= 100 
CACHVEC=114 
PIRQVEC-240 
MMVEC= 
.S8TTL 
LOADRS 
HIADRS 
MEMERR 
CONTRL 
MAINT 
HITMIS 
•SBTTL 
SIZELO 



I 1 

7-2 



SEOUENCf 



K 
20 
24 
30 



SIZEHI = 177762 



SYSTID 
CPUERR 



177764 
177766 



TRAP VECTOR ADDRESSES 

;;TIME OUT AND OTHER ERRORS 

;;RESERVED AND ILLEGAL INSTRUCTIONS 

;;'*T" BIT 

;; TRACE TRAP 

; .-BREAKPOINT TRAP (8PT) 

.-.•INPUT/OUTPUT TRAP (lOT) **SC0PE** 

;; POWER FAIL 

; .-EMULATOR TRAP (EMT) ••ERROR** 
• " ' 'TRAP' ' TRAP 
;;TTY KEYBOARD VECTOR 
;;TTY PRINTER VECTOR 
.-.-LINE CLOCK (KW11-L) VECTER 
.-.-CACHE ERROR INTERRUPT VECTOR 
.-.-PROGRAM INTERRUPT REQUEST VECTO-l 
.-.-MEMORY MANAGEMENT VECTOR 
REGISTER DEFINITIONS 

;; LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
; .-UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
.-.•CACHE ERROR REGISTER 
.-.-MEMORY CONTROL REGISTER 
.-.-MEMORY MAINTENENCE REGISTER 
.-.-HIT MISS REGISTER "1" IMPLIES HIT IN CACHE 
DEFINITIONS 

; .-MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
;;T0 GET TO THE LAST 32 WORDS OF MEMORY 
;;HI6H SIZE REGISTER, RESERVED FOR FUTURE USE 
.-.•CURRENTLY ALL ZERO 
.-.-SYSTEM ID REGISTER 

.-.-CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
;;THE TRAP TO ERRVEC (000004) 



250 
CACHE 
177740 
177742 
177744 
177746 
177750 
177752 
CPU REGISTER 
177760 



. SBTTL MEMORY MANAGEMENT DEFINITIONS 
.♦MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
MMRO 177572 
MMR1 177574 
MMR2= 177576 
MMR3 172516 
SRO=MMRO 
SR1=MMR1 
SR2=MMR2 
SR3=MMR5 
.-•USER "I" PAGE 
UIPDRO= 177600 



DESCRIPTOR REGISTERS 



UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4- 
UIPDR5- 
UIPDR6= 



1 77602 
1 77604 
1 77606 
177610 
177612 
177614 



.. i , ' POWER FAIL 
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SfOUFNCf 



1776^6 


UIPDR7= 


177616 




.•♦USER 'T) PAGE 


1 77620 


UD«'DRO= 


1 77620 


1 77(>22 


UDPDR1= 


1 77622 


1 77624 


UDPDR2= 


1 77624 


1 77626 


UDPDR3= 


177626 


1 77630 


UDPDR4= 


? 77630 


1 77632 


UDPDR5= 


177632 


1 77634 


U0PDR6= 


177634 


1 77636 


UDPDR7- 


177636 




.••USER " 


1" PAGE 


1 77640 


UIPAR0= 


177640 


1 77642 


UIPAR1= 


177642 


1 77644 


UJPAR2= 


1 77644 


1 77646 


UIPAR3= 


1 77646 


1 77650 


UJPAfi4= 


1 77650 


1 77652 


UIPAR5= 


1 77652 


1 77654 


UJPAfi6= 


177654 


1 77656 


UIPAR7= 


177656 
)" PAGE 




.•♦USER '1 


1 77660 


UDPARO= 


177660 


1 77662 


UDPAR1= 


177662 


1 77664 


UDPAR2= 


177664 


' 77666 


UDPAH3= 


177666 


1 77670 


UDPAR4= 


177670 


177672 


UDPAR5= 


\77672 


1 77674 


UDPAR6= 


177674 


1 77676 


UDPAR7= 


1 77676 




; *SUPERV 


I SOR "V 


1 72200 


SIPDRO= 


1 72200 


1 72202 


SJPDR1= 


172202 


1 72204 


SIPDR2= 


1 72204 


1 72206 


SJPDR3- 


1 72206 


172210 


SJPDR4= 


172210 


}722'2 


SIPDR5= 


172212 


\722yt. 


SJPDR6= 


172214 


172216 


SIPDR7= 


172216 




; ♦SUPERV 


I SOR 'D' 


1 7222:i 


SDPDRO= 


]72220 


y72222 


SDPDR1- 


172222 


y7222t^ 


SDPDR2- 


\7222t^ 


\72226 


SDPDR3= 


1 72226 


1 72230 


SDPDR4= 


1 72210 


172232 


SDPDR5= 


1 72212 


1 72234 


SDPDR6= 


1 72234 


172236 


SDPDR7= 


1 72236 




; *SUPERV 


ISOR 'T 


172240 


SJPARO- 


172240 


172242 


SJPAR1= 


1 7221.2 


1 72244 


SI PAR 2= 


m2i.U 


172246 


SJPAR3- 


172246 
172250 


1 72250 


SIPAR4= 


172252 


S1PAR5= 


172252 


172254 


SIPAR6= 


172254 


1^2256 


SI PAR 7= 


172256 




.•♦SUPERV 


ISOR "D' 


1 72260 


SDPARO- 


172260 



DESCRIPTOR REGISTO^S 



ADDRESS REGISTERS 



ADDRESS REGISTERS 



PAGE DESCRIPTOR REGISTERS 



PAGE DESCRIPTOR REGISTERS 



PAGE ADDRESS REGISTERS 



)" PAGE ADDRESS REGISTERS 



..i '-/A^ POWER MIL 
'tM K. »lANAGE«ieNT DEFINITIONS 

1 72262 
1 7226A 
1 72266 
1 72270 
^77272 
1 72271. 
1 7227t 

172300 
1 72302 
1 72304 
172306 
172310 
172312 
1723K 
172316 

1 72320 
1 72122 
172324 
1 72326 
172330 
172332 
1 72334 
1 72336 

1 72340 
172342 
1 72344 
1 72346 
172350 
172352 
172354 
172356 

1 72i60 
1 72362 
1 72364 
1 72366 
1 72370 
1 72Yf2 
}72l7i, 
^ 72176 



170200 
1 70202 
1 70204 
1 70206 
170210 
170212 
170214 
170216 
1 70220 
170222 
1 70224 
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SDPAR1= 
SDPAR2= 
SDPAR3= 
SDPAR4= 
SDPAR5= 
SDPAR6= 
SDPAR7= 
;*KERNEL 
KIPDRO= 
KIPDR'' = 
KJPDR2= 
KJPDR3= 
KJPDR4- 
KJPDR5= 
KJPDR6= 
KJPDR7= 
.••KERNEL 
KDPDRO= 
KDPDR1= 
KDPDR2= 
KDPDR3= 
KDPDR4= 
KDPDR5= 
KDPDR6= 
KDPDR7= 
;*KERNEL 
K]PARO= 
KIPAR1= 
KIPAR2= 
K1PAR3= 
KJPAR4= 
KIPAR5= 
KIPAR6= 
KIPAR7= 
; *KERNEL 
KDPARO= 
KDPAR1= 
KDPAR2= 
KDPAR3= 
KDPAR4= 
KDPAR5= 
KDPAR6= 
K;DPAR7= 
SBTTL 



*THE 
*THE 
MAPLOC 
MAPHOC 
MAPL01 
MAPH01 
MAPL02 
MAPH02 
MAPL03 
MAPH03 
MAPL04 
MAPH04 
MAPL05 



172262 
1 72264 
1 72266 
172270 
1 72272 
\7227i. 
172276 

"I" PAGE 
1 72300 
172302 
1 72304 
1 72306 
172310 
172312 
172314 
172316 

"D" PAGE 
172320 
■^72122 
^72121. 
y72Z2t 
172330 
172332 
1 72334 
172336 

"\" PAGE 
172340 
172342 
1 72344 
1 72346 
172350 
172352 
172354 
172356 

•!)" PAGE 
172360 
172362 
172364 
172366 
172370 
172372 
1 72374 
172376 
UNJ8US 



DESCRIPTOR REGISTERS 



DESCRIPTOR REGISTERS 



ADDRESS REGISTERS 



ADDRESS REGISTERS 



LOWER 



MAP REGISTER DEFINITIONS 
16 BITS OF THE MAP REGISTERS 



ARE LABELED 'MAPLXX' 



6 BITS OF THE MAP REGISTERS ARE LABELED 'MAPHXX* 



1 70200 
170202 
170204 
170206 
: 70210 
170212 
170214 
170216 
1 70220 
1 70222 
\7022i. 



'•knAfCO n/AA POWER 
JNIBuS HAP REGISTER 



FAIL 

DEFINITIONS 
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170226 
170230 
170232 
17023A 
1 70236 
1 70240 
1 702A2 
1 7024A 
1 702A6 
1 70250 
170252 
1 70254 
170256 
1 70260 
1 70262 
1 70264 
1 70266 
1 70270 
170272 
1 70274 
1 70276 
170300 
1 70302 
1 70304 
1 70306 
170310 
170312 
170314 
170316 
1 70320 
170320 
1 70324 
1 70326 
170330 
1 70332 
1 70334 
1 70336 
1 70340 
170342 
1 70344 
170346 
170350 
1 70352 
170354 
1 70356 
1 70360 
1 70362 
1 70364 
1 70366 
1 70370 
1 70372 
1 70374 
1 70376 
1 70200 
170202 
1 70204 
170206 



l<1APH05 
IWL06 
MAPH06 
MAPL07 
MAPH07 
MAPfO 
MAPH10 
MAPL11 
WVPH11 
MAPL12 
MAPH12 
MAPL13 
MAPH13 
P1APL14 
MAPH14 
MAPL15 
MAPH15 
MAPL16 
MAPH16 
MAPL17 
MAPH17 
M,'\PL20 
MAPH20 
MAPL21 
MAPH21 
MAPL22 
MAPH22 
MAPL23 
riAPH23 
MAPL24 
MAPH24 
MAPL25 
MAPH25 
MAPL26 
MAPH26 
MAPL27 
MAPH27 
MAPL30 
MAPH30 
MAPL31 
MAPH31 
MAPL32 
MAPH32 
riAPL33 
(1APH33 
MAPL34 
MAPH34 
MAPL35 
MAPH35 
MAPL36 
MAPH36 
MAPL37 
MAPH37 
MAPLO=/nAPLOO 
!>WPHO=inAPHOO 
MAPL1=MAPL01 
MAPH1-MAPH01 



170226 
1 70230 
1 70232 
1 70234 
170236 
170240 
170242 
1 70244 
1 70246 
170250 
170252 
170254 
1 70256 
170260 
1 70262 
1 70264 
1 70266 
1 70270 
170272 
170274 
170276 
1 70300 
170302 
1 70304 
170306 
170310 
170312 
170314 
170316 
170320 
170320 
1 70324 
170326 
170330 
170332 
1 70334 
1 70336 
170340 
1 70342 
1 70344 
170346 
1 70350 
170352 
170354 
170356 
170360 
170362 
170364 
170366 
1 70370 
170372 
1 70374 
170376 



• tA 'v. POWER 
jMEjuS fV<P REGISTER 



FAIL 

DEFINITIONS 
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h 1 

7-6 



SEQUENCE 1? 



?82 
283 
284 
285 
286 
287 
289 



0001 74 
C00176 

000200 



000030 
000032 



000046 
000052 



290 
291 



00002A 
000044 



170210 
170212 
170214 
170216 
1 70220 
170222 
1 70;' '>4 
1 70«:26 
1 70230 
1 70232 
1 70234 
170236 

000000 



0001 74 
000000 
000000 

000137 
000500 
000204 
000030 
006550 
000340 
000204 



000204 
000046 
003724 
000052 
000000 
000204 
001100 



001100 
000024 
000200 
000044 
001100 
001100 



001424 



001100 




SAPTMD: 






001100 


000000 


$HI8TS: 


.WORD 


0 


001102 


001114 


SMBADR: 


.WORD 


SMAJL 


001104 


000005 


$TSTM: 


.WORD 


5 


001106 


000005 


SPASTM: 


.WORD 


5 


001110 


000000 


SUNITM: 


.WORD 


0 



MAPL2=f1APL02 
MAPH2=MAPH02 
MAPL3=MAPL03 
MAPH3=»>1APH03 
MAPL4=fW»L04 
MAPH4=MAPH04 
MAPL5=MAPL05 
MAPH5=/WH05 
riAPL6=MAPL06 
f1APH6=MAPH06 
MAPL7=MAPL07 
MAPH7=MAPH07 
.S8TTL TRAP CATCHER 
.=0 

»ALL UNUSED LOCATIONS FROM 4 - 7^6 CONTAIN A ".+2.HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 ; .-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 ; ."SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP 5W8EGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
STACK 1=500 
$SAVPC=. 
.=30 
SERROR 
340 

.=$SAVPC 

.S8TTL ACTll HOOKS 

•■******♦********»************«»*«»****»*******»***»»***»»***»*»* 

•HOOKS REQUIRED BY ACT11 

$SVPC=. .-SAVE PC 

.=46 

SENDAD ;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

.=52 

.WORD 0 ;;2)SET LOC.52 TO ZERO 

.=$SVPC ;; RESTORE PC 

,-1100 

S8TTL APT PARAMETER BLOCK 

**************************************************************** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

• *************************************************************** 
.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. = .$X ; .-RESET LOCATION COUNTER 
••*********»***»*»»*»**»*»*************»*»»***»»•****•***•**»*»» 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 

TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 13T PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



CKKACCO n/AA POWER FAIL 
APT PARAfiETER BLOCK 



MACRO Wm3 06-APR-81 U:07 



N 1 
PAGE ~-7 



SEOUFNCE 



?9? 



001112 000016 



001 1U 
001 1U 
001116 
001120 
001122 
001 12A 
U01126 
001130 
001152 
001154 
001154 
001155 
001136 
001 KO 
001 142 



001144 
001145 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



000 
000 



001146 000000 
001150 



.WORD $ETEND-SMAlL/2 ;;LENGTH MAIL80X-£TA/^1 E (WORDS) 
.S8TTL APT MAI LBOX-E TABLE 



.EVEN 

SMAIL: 

SWSGTY: 

SFATAL: 

STESTN: 

SPASS : 

SDEVCT: 

$UNIT: 

SMSGAD: 

SMSGLG: 

$E TABLE: 

SENV: 

SENVM: 

SSWREG: 

SUSWR: 

SCPUOP: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



AMSGTY 
AFATAL 
ATESTN 
APASS 

ad:vct 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



SMAMSI : 
SMTYPI : 

• * 

• * 

• * 
* 

;* 

SMADR1 : 

• * 

SETEND: 

.MEXIT 

.SBTTL 



.BYTE 
.BYTE 



AMAMS1 
AMTYPl 



.WORD AMADRI 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYIE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPT IONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 , 1 1 /05=02 . 1 1 /20=05, 1 1 /40=04 . ■• 1 /45=05 
11/70=06.PDO=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=M£M0RY MANAGEMENT 
;;HIGH ADDRESS, M.S. BYTE 
;;MEM. TYPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
;;HIGH ADDRESS. 8LK*1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF '7YPE" ABOVE 



APT COMMUNICATIONS ROUTINE 



■**«*********»*****♦*♦*****•»••»**»*»•******•»»*»***»»****•*»»*» 



001 1 50 


112767 


000001 


000236 


SATYl : 


MOVB 


*1,$FFLG 


001156 


112767 


000001 


000226 


$ATY3: 


M0V8 


#1 .SMFLG 


001164 


000403 








BR 


$ATYC 


0011^)6 


112767 


000001 


000220 


$ATY4: 


MOVB 


/in.SFFLG 


C01 1 74 








SATYC: 






001 1 74 


010046 








MOV 


RO.-(SP) 


001176 


010146 








MOV 


R1,-(SP) 


001200 


105767 


000206 






TSTB 


SMFLG 


001204 


001450 








BEQ 


5$ 


001206 


122767 


000001 


177720 




CMP8 


#APTENV,$ENV 


001214 


001031 








BNE 


3$ 


001216 


132767 


000100 


177711 




BITS 


*APTSPOOL,$ENVM 


001224 


001425 








BEQ 


3$ 


001226 


017600 


000004 






MOV 


a4(SP).R0 


001232 


062766 


000002 


000004 




ADD 


Xf2,4{SP) 


001240 


005767 


177650 




1$: 


TST 


SMSGTYPE 


001244 


001375 








BNE 


1$ 


001246 


010067 


1 77656 






MOV 


RO.SMSGAD 


001252 


105720 






2$: 


TSTB 


(RO)* 


001254 


001376 








BNE 


2$ 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 



PUSH RO ON STACK 
PUSH Rl ON STACK 
SHOULD TYPE A MESSAGE? 
IF NOT: BR 
OPERATING UNDER APT? 
IF NOT: BR 

SHOULD SPOOL MESSAGES? 

If NOT: BR 

GET MESSAGE ADDR. 

.•;8UMP RETURN ADDR. 
SEE IF DONE W/ LAST EMISSION"' 
IF NOT: WAIT 
PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 



CKKACCO POWER FAIL 

APT COMMUNICATIONS ROUTINE 



I«1ACR0 Ml I'' 3 06-ADR-81 



001 PS6 


166700 


1776<,6 






SUB 




006200 








ASR 




010067 


1 77642 






MOV 


001 ?70 


012767 


000004 

w w 


177616 




MOV 


001 ?76 


00041 3 








BR 


001 ?00 


017667 


000004 

V w w~ 


000016 

WW • w 


3$: 


MOV 


001 ^06 


062766 


000002 

v W Wt 


000004 

w w v~ 




ADD 


001 ?K 


016746 


176456 






MOV 


001 ?20 


004767 


004566 






JSR 


001 ?24 


000000 

www 






4S: 


.WORD 


001 526 








5S: 




001 326 


105767 


000062 




10S: 


TST8 


001332 


001416 








BEQ 


001 33A 


005767 


177574 






TST 


001 3A0 


001413 








BEQ 


001 3A2 


005767 


177546 




IIS: 


TST 


001 3A6 


001375 








6NE 


0011^50 


017667 


000004 


177540 




MOV 


001356 


062766 


000002 


000004 




ADD 


C0136A 


005267 


1 77524 






INC 


001370 


105067 


000020 




12$: 


CLRB 


001 374 


105067 


00001 3 






CLRB 


oouoo 


105067 


000006 






CLR8 


OOKOA 


01 2601 








MOV 


00K06 


012600 








MOV 


00U10 


000207 








RTS 


00K12 


000 






SMFLG: 


.BYTE 


00U13 


000 






$LFLG: 


.BYTE 


OOKU 


000 






SFFLG: 


.BYTE 
.EVEN 



294 
295 
296 
297 
298 
299 



001416 
001420 



001422 



000200 

000001 
000100 
000040 

000000 
000000 
177570 
177570 
000002 



APTSJZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 

PFAJL: .WORD 
XYZ: .WORD 0 
SWR=1 77570 
DJSPLAY=SWR 
LRTI: RT] 



8 2 
14:07 PAGE 7-8 



SMSGAD.RO 

RO 

RO,JMSGLGT 

#4,$«SGTYPE 

5$ 

a4(SP),4S 
*2.4(SP) 
177776. -(SP) 
PC.JTYPE 
0 

SFFLG 
12$ 
SENV 
12$ 

$«SGTYPE 
11$ 

S4(SP),$FATAL 

#2,4(SP) 

$MSGTYPE 

$FFLG 

$LFLG 

$MFLG 

(SP)*,R1 

(SP)*.RO 

PC 

0 

0 

0 



;;SU8 START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
.-.-TELL APT TO TAKE MSG. 

;;OUT MSG ADDR IN JSR LINKAGE 
;;8UMP RETURN ADDRESS 

;;PUSH 177776 ON STACK 
.-.-CALL TYPE MACRO 



SHOULD REPORT FATAL ERROR"* 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
JF NOT: WAIT 
GET ERROR » 

;:BaV> RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



-■KKACCO POWER FAIL 

APT COMMUNICATIONS ROUTINE 
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C 
8 



SEOUfVCf 



301 

302 

303 

30<. 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3K 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 



00U24 








001424 


012706 


001100 




001430 


012737 


006476 


000034 


001436 


012737 


000340 


000036 


001444 


005067 


177452 




001450 


016767 


002216 


002206 



001610 
001612 
001620 
001624 
001632 
001636 
001640 
001644 
001646 
001652 
001654 
001656 



BEGIN: 
.S8TTL 



INITIALIZE THE COMMON 



MOV 

;; INITIALIZE 
MOV 
MOV 
CLR 
MOV 

;;SIZE FOR A 
; .-EQUAL TO A 



tfSTACK.SP 
FEU VECTORS 
*$TRAP,a*TRAPVEC 
*340,a#TRAPVEC*2 
SPASS 

SENDCT.SEOPCT 



TAGS 

;; SETUP THE STACK POINTER 



;;TRAP VECTOR FOR TRAP CALLS 
LEVEL 7 

.•CLEAR THE PASS COUNT 
.•SETUP END-OF -PROGRAM COUNTER 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1". SETUP FOR A SOFTWARE SWITCH REGISTER. 





A1 17/ 


AAAAAy 
0UUUU*» 






Mnvy 
nuv 


001462 


0\cf5r 


AA1 CI iL 
JO 1 J lo 


UUUUUh 




nuv 


001 4^0 


Ai '57^7 

01«:'O' 


1 7 7C7n 

1 ( f^fyj 


1 7An'75 

1 foyjf c 




MOV/ 

nuv 




A1 "37^.7 
UlCfOf 


1 77C7A 






Mnvy 
nuv 






1 77777 

i f f f f 1 


1 76056 




CMP 


001512 


001012 








BNE 


001514 


000403 








BR 


001516 


012716 


001524 




64S: 


MOV 


001522 


000002 








RTI 


001524 


012767 


0001 76 


1 76036 


65$: 


MOV 


001532 


012767 


000174 


1 76030 




MOV 


001 540 


012637 


000004 




66S: 


MOV 


001544 


005067 


177352 






CLR 


001550 


132767 


000200 


177357 




BITS 


001556 


001403 








BEQ 


001560 


012767 


001136 


176002 




MOV 


001566 








67$: 




001566 




004360 


002760 




MOV 


001574 




004260 


000114 




MOV 


001602 


012737 


000001 


004262 




MOV 



a*ERRVEC.-(SP) 

<f64$.a#ERRVEC 

ffDSWR.SWR 

*DD ISP. DISPLAY 

or-i.aswR 

06$ 

65$ 

*65$,(SP) 

/irSWREG.SUR 
*DISPREG. DISPLAY 
(SP)*,a#ERRVEC 
$PASS 

*APTSIZE.$ENVM 
67$ 

#$SWREG,SWR 



.■SAVE ERROR VECTOR 
.-SET UP ERROR VECTOR 
.•SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
.•BRANCH IF NO TIMEOUT TRAP OCCURRED 
.-AND THE HARDWARE SWR IS NOT - -1 
.•BRANCH IF NO TIMEOUT 
.-SET UP FOR TRAP RETURN 

;POINT TO SOFTWARE SWR 

.•RESTORE ERROR VECTOR 
.•CLEAR PASS COUNT 
.TEST USER SIZE UNDER APT 
; YES, USE NON-APT SWITCH 
;NO.USE APT SWITCH REGISTER 



*POWDWN.aDVEC .-SET UP POWER DOWN VECTOR 

*PARERR.a*CACHVEC ;SET UP PARITY ERROR VECTOR 

*l,a/lfPARFLG .•INITIALIZE THE MULTI PARITY ERROR INDICATOR 









.•DETERMINE THE 


SIZE OF MEMORY IN 


SYSTEM USING SYSMAC SIZE 








.•ROUTINE 






005000 






CLR 


RO 


MAKE MSB'S = 0 


052767 


000200 


003170 


BIS 


#8IT07,$KT11 


•TURN ON MEMORY MANAGMENT 


004767 


003100 




JSR 


PC.SSIZE 


•GET PAR VALUE FOR LAST WORD 


062767 


000037 


003604 


ADD 


*37,$LSTBK 


•FINE LAST ADDRESS OF MEMORY 


016701 


003600 




MOV 


$LSTBK.R1 


■CHECK LAST BANK WITH Rl 


005201 






INC 


R1 


■SIZE MEMORY 


071027 


000200 




DIV 


*200.R0 


■FORM THE BLOCK NUMBER OF 


005300 






DEC 


RO 


■ THE LAST ADDRESS AND 


010067 


002712 




MOV 


RO. LIMIT 


•SAVE IT. 


005200 






INC 


RO 


•MULT BY 4 


006300 






ASL 


RO 




006300 






ASL 


RO 





.•THIS ROUTINE SIZE FOR PFAIL HARDWARE. TO AUTOMATIC POWER FAIL THE SYSTEM 



001660 


012767 


1 77740 


177530 


MOV 


<f1 77740. PFAIL 


; SETUP PFAIL ADDRESS 


001666 


012767 


001710 


176110 


MOV 


*3$.4 


.SET PC 


001674 


012767 


000340 


176104 


MOV 


*340.6 


;SET PSW 


001702 


005777 


177510 




TST 


aPFAlL 


;READ PFAIL 


001706 


000412 






BR 


4$ 


.•POWER FAIL HARDWARE IS IN SYSTEM 


001710 


012767 


000006 


176066 3$: 


MOV 


*6.4 


.TRAP RETURN 


001716 


005067 


1 76064 




CLR 


6 





r».KACCO 11/44 POW£R FAIL 
INITIALIZE THE COMMON TAGS 



330 
331 
332 
333 
354 



001722 
001724 
001726 
001 734 
001742 



005726 
005726 
012767 
012767 
005067 



001420 
OOOOOo 
1 76040 
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D 2 
8-1 



177462 
176042 



4S: 



TST 
TST 
MOV 
MOV 
CLR 



(SP)* 
(SP)* 

#xyz.Pf AIL 
#6.4 

6 



SEOUE^CF 



1^ 



SETUP STACK PC 
SETUP STACK PSW 
SET UP DLWMY ADDRESS 
RESTORE TRAP VEC 



riCKACCO 11/44 POWER FAIL 
INITIALIZE THE COMMON TAGS 



535 






336 






337 001746 


023767 


000042 


338 001754 


001421 




339 001756 


104401 


007737 


340 001762 


104401 


007774 


341 001766 


010046 




001770 


104405 




342 001772 


104401 


010151 


343 001776 


026727 


(77414 


344 002004 


001403 




3m 5 002006 


104401 


A4 AT71 

010371 


346 002012 


AAA/ A^ 

000402 




347 002014 


1 04401 


A4 A74 1 

010311 


548 OOtrUtrU 


U 1 c ' o/^ 


UUUUU 1 


349 002026 


104401 


006473 


350 






351 






352 






353 






354 002052 


004767 


002634 
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E 
9 



SEQUf 



001750 



001420 



177072 



;IDENTIFY THE PROGRAM AND TYPE INSTRUCTIONS 



CMP 

BEQ 
TYPE 
TYPE 
MOV 
TYPDS 
TYPE 
CMP 
BEQ 
TYPE 
BR 
TYPE 
MOV 
TYPE 
THIS ROUTINE 
BRANCH . OUT 
S08 HAS ONE 
1024 MUL BY 
JSR 



5$: 

PRETST: 



a«42,SENDAD 

PRFTST 
.TITLE 
.BOOT 
RO.-(SP) 

.SUPMSG 

PFAIL,*XYZ 

5$ 

.HDWPFL 
PRETST 
.USRPFL 
*1.$TESTN 
,$CRLF 



;TYPE THE TITLE 

.•SAVE RO FOR TYPEOUT 

;G0 TYPE— DECIMAL ASCII WITH SIGN 

TYPE THE STARTUP MESSAGE 

IS AUTOMATIC POWER FAIL 

BRANCH IF NO 

TYPE HARDWARE POWER FAILURE MESSAGE 
BRANCH OVER MANUAL MESSAGE 
TYPE USER POWER FAIL MESSAGE 



;TYPE A <CRLF> 
IS FOR CHECKING 2MS TIMING USING SOB OUT OF SIPARS 
OF SIPAR0=1.2US 
MORE MICRO STEP THROUGH EQUAL 1.4US 
1.4US EQUAL 1.43MS MJN TIME CHECKED FOR ILLUP,ILLDWN 

PC.SETPAR ;fiO PUT TIME FACTOR SUBROUTINE IN SIPAR0-<;IPAR3 



'ruArcO POWER FAIL P1ACR0 Ml 11 5 

'F'.T H \ - SIW»LE OOUN/UP TEST (KERNEL) 



06-APR-81 K:07 PAGE 



F 2 
10 



SfOUFNCE 18 



5S5 



s8ttl test # 1 - simple down/up test (kerned 
West i simple down/up test (kerned 





002056 








002036 


1 n/ / ni 
1 U*»*»U 1 


0UcU*»*» 




002042 


0004 (Jif 






002050 








002050 


104401 


003740 


356 


002054 


005037 




357 


002060 


ni ?7n^ 

\J \ CI \J J 


no?074 

\J\JC\Jt " 


358 


002064 




000001 


359 002072 


000001 




560 00207A 


010600 




361 


002076 


022700 


001074 


362 


002102 


001414 




363 


002104 


012767 


001074 


36A 


002112 


010067 


005554 


365 


0021 16 


012706 


0C0500 




002122 


104000 





TSn : 



;;65$: 
64$: 



TYPE ,65$ 
SR 64$ 
.ASCIZ »1 • 

TyPE.tENULc 



17/524 



005556 



2$: 



CLR 
MOV 
MOV 
WAIT 
MOV 
CMP 
BEC 

Moy 

MOV 
MOV 

ERROR 



(MfPS 

*2$.R5 

*1.aPFAIL 

SP,R0 

*STACK-4.R0 
5$ 

<ri074,EXP.SPl 

R0,REC.SP1 

*STACK1.SP 



366 

367 002124 007670 

568 002126 007672 

569 002130 000000 

570 002152 000000 

571 002154 012706 001100 

572 002140 015700 001074 

575 002144 022700 002074 
574 002150 001414 

375 002152 012767 002074 005504 

576 002160 010067 005502 

577 002164 012706 000500 



5$: 



EXP.SP1 
REC.SP1 
0 

HALT 

MOV 

MOV 

CMP 

BEO 

MOV 

MOV 

MOV 



*STACK.SP 

a»s tack-4.ro 

*2$.R0 
4$ 

<'2$,EXP.ADD 

RO.REC.ADD 

*STACK1.SP 



002170 


104000 




ERROR 




578 










379 002172 


007664 




EXP. ADD 




380 002174 


007666 




RE C. ADD 




5b; 002176 


000000 




0 




582 002200 


000000 




HALT 


a5rSTACK-2,RO 


585 002202 


015700 


001076 4$: 


MOV 


584 002206 


022700 


000000 


CMP 


*0.R0 


585 002212 


001414 




BEO 


5$ 


586 002214 


012767 


000000 005452 


MOV 


#O.EXP.PSW 


387 002222 


010067 


005450 


MOV 


RO.REC.PSW 


588 002226 


012706 


000500 


MOV 


<fSTACKl,SP 


002252 


104000 




ERROR 





;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;SET .;ERNEL MODE 
;SET POWER UP RETURN 

;SET UP TO START POWER FAIL 

WAIT FOR POWER FAIL 

GET SP 

CHECK SP 

SKIP IF OK 



.•SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



.-ERROR 



SP NOT STACK-4 

PRINT EXPECTED STACK POINTER 
PRINT RECEIVED STACK POINTER 



RESET SP 

GET RETURN ADDRESS 
CHECK ADDRESS 
SKIP IF OK 



.-SETUP RESERVED STACK POINTER 
.-FOR ERROR PRINTOUT 



; ERROR 



ADDRESS ON STACK IS WRONG 
PRINT EXPECTED ADDRESS 
PRINT RECEIVED ADDRESS 



GET OLD PS 
CHECK OLD PS 
SKIP IF OK 



.-SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



.-ERROR 



A^U 1'/^-^ POWER FAIL MACRO M1113 

T # ^ - SIMPLE OOWN/uP TEST (KERNED 



06-APR-81 K:07 



G 2 
PAGE 10-1 



i89 
590 
391 
392 
393 
394 



395 
396 
397 
398 
399 



002234 
002236 
002240 
002242 
002244 
002244 
002252 



007674 
007676 
000000 
000000 

03273"' 
001271 



040000 177570 



5$: 



EXP.PSW 
REC.PSW 
0 

HALT 



BIT 
BNE 



«SWl4,a#SWR 

TST1 



.-OLD PS IS WRONG 
.-PRINT EXPECTED pS 
.-PRINT RECEIVED PS 



.-LOOP 
.-LOOP 



ON 

TO 



TEST? 
TST1 



TEST ROUTINE 
USING THE BR. 
OPERATOR MUST 



TO CHECK RE-START CAPABILITY 
INSTRUCTION 

SET HALT SWITCH TO ENABLE POSITION 



CKKACCO POWER FAIL MACRO M1113 

TEST • 2 - POWER FAIL WHH BR. INSTRUCTION 



H 2 

06-APR-81 14:07 PAGE 11 



SfdUE', 



400 





002254 










002254 


104401 


002262 






002260 


000402 








002266 










002266 


104401 


003740 




401 


002272 


005267 


1 76622 




402 


002276 


012706 


001100 






\J\JCJ\JC 


U ' c f Of 


000^57 


1 754Af> 


404 


002310 


012703 


002324 




405 


002514 


012777 


000001 


1 77074 


406 


002322 


000777 






407 


002524 


010600 






408 


002526 


012706 


001100 




409 


002552 


022700 


001074 




410 


002556 


001414 






411 


002340 


012767 


001074 


005322 


412 


002546 


010067 


005320 




41? 


002352 


012706 


000500 






002356 


104000 







414 

415 002360 

416 002362 
41/ 002364 

418 002566 

419 002370 

420 002374 

421 002400 

422 002402 

423 002410 

424 002414 



007670 
007672 
000000 
000000 
013700 
022700 
001414 
012767 
010067 
012706 



001076 
000341 

000341 
005262 
000500 



S8TTL TEST * 2 - POWER FAIL WITH BR. INSTRUCTION 
'•TEST 2 POWER FAIL WITH BR. INSTRUCTION 



ST2: 



;;65$: 
64S: 



1$; 
2$: 



3$: 



005264 



TYPE .651 
BR 64$ 
.ASCIZ •2 • 



TYPE, 
INC 
MOV 

MOV 
MOV 

rov 

BR 
MOV 
MOV 
CMP 
BEO 
MOV 
MOV 
MOV 

ERROR 



SENULu 
STESTN 
#STACK,SP 
*357.PS 
#2$.R3 
*1.aPFAIL 

SP.RO 
*STACK.SP 
#S TACK-4.ro 
3$ 

*1074.EXP.SP1 
R0.REC.SP1 
#STACK1,SP 



EXP.SP1 
REC.SP1 
0 

HALT 

MOV 

CMP 

BEQ 

MOV 

MOV 

MOV 



a#STACK-2,R0 

*341.R0 

4S 

*341.EXP.PSW 

RO.REC.PSW 

#STACK1,SP 





002420 


104000 




ERROR 


425 










426 


002422 


007674 




EXP. PS W 


427 


002424 


007676 




REC.PSW 


428 


002426 


000000 




0 


429 


002450 


000000 




HALT 


430 


002452 


0 .700 


001074 4$: 


MOV 


431 


002436 


022700 


002322 


CMP 


452 


002442 


001414 




BEQ 


433 


002444 


012767 


002322 005212 


MOV 


434 


002452 


010067 


005210 


MOV 


435 


002456 


012706 


000500 


MOV 




002462 


104000 




ERROR 



a*STACK-4,R0 

«1$,R0 

5> 

*1$.EXP.ADD 
RO.REC.ADD 
*STACK1 .SP 



..•TYPE ASCIZ STRING 
.-.GET OVER THE ASCIZ 



;SET UP STACK 

SET UP CONDITION CODES 
;SET POWER UP RETURN 
;SET UP TO START POWER FAIL 
,WAIT FOR POWER FAIL 
;GET SP 
:SET STACK 

; CHECK STACK POINTER 
;SKIP IF OK 



.•SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



ERROR 



STACK POINTER 
PRINT RECEIVED SP 
PRINT EXPECTED SP 



GET OLD PS 
CHECK OLD PS 
SKIP IF OK 



.-SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



ERROR 



OLD PS IS WRONG 
PRINT EXPECTED OLD PS 
PRINT RECEIVED OLD PS 



;GET RETURN ADDRESS 
;SKIP IF OK 



.SETUP RESERVED STACK POINTER 
.FOR ERROR PRINTOUT 



^iticArtO POWER FAIL 

^E'^T « 2 - POWER FAIL WITH BR. 



MACRO Min? 
INSTRUCTION 



06-APR-81 U:07 PAGE 



I 2 
^1-1 



SEOUFNCE ?1 



A36 
437 
438 
439 
440 
441 



4h2 
443 
444 
445 
446 



002464 007664 

002466 007666 

002470 000000 

002472 000000 
002474 

002474 032737 040000 177570 

002502 001264 



5$: 



EXP. ADD 
RE C. ADD 

0 

HALT 

BIT 
BNE 



«SJl4,a«SUR 
TST2 



ERROR 



ADDRESS ON STACK IS WRONG 
PRINT EXPECTED ADDRESS 
PRINT RECEIVE ADDRESS 



.■LOOP ON TEST? 
.•LOOP TO TST2 



TEST ROUTINE TO CHECK RESTART CAPABILITY 

USING THE EMULATOR TRAP FOR A WAIT 

OPERATOR MUST SET HALT SWITCH TO ENABLE POSITIOfJ 



rk.KACCO n/AA POWER FAIL MACRO M1113 

TEST # 5 - POWFR FAIL WITH EHT TRAP 



06-APR-81 K:07 PAGE 



J 2 
12 



UOUE'iCE 



UU7 



448 
4s9 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 



002504 
002504 
002510 

002516 
002516 
002522 
002526 
002532 
002536 
002542 
002550 
002556 
002564 
002566 
C02570 
002572 
002576 
002604 
002610 
002612 
002616 
002620 
002626 
002632 

002636 









ri 




3 - POWER FAIL 


WITH EMT TRAP 








• • tf<;t 


7 


POWER FAIL WITH EMT TRAP 








1 O 1 J • 








1 ^.LL^^^ 


UUc7 I c 






TYPE 


,65$ 


;;TYPE ASCIZ STRING 


UUv'tUc 






BR 


64$ 


;;GET OVER THE ASCIZ 






Ait • 


.ASCIZ 


•3 • 






nn77An 

UU J ' sU 






TYPE.SENULL 






1 76372 






I Kir 


CTCCTIU 

9 t C O 1 Ml 






1 7777A 






n o 




;SET KERNEL MODE 


\J \ Cf \J\J 


nni inn 






Mnv/ 
nuv 




;SET UP STACK 


ni P7n^ 

VIC' V J 


nn?S7n 






MOV/ 




;SET POWER UP RETURN 


\J 1 CfOf 


nni^?? 

vU 1 Hcc 






MOV 


*LRTKEMTVEC 


;SET UP RETURN FROM EMT TRAP 


U 1 Cf Of 


nnnnns 






MOV 


#5,EMTVEC*2 


;SET PSW ON POWER FAIL 


ni ?777 


nnnnni 


1 7663? 




MOV 


*1.aPFAIL 


;SET UP TO START POWER FAIL 






3S- 
J* • 


EMT 




;WAIT FOR POWER FAIL 


nnn77A 








BR 


3$ 




ni n^nn 






c* • 


MOV 


SP,RO 


;GET SP 


ni ?7nA 


nni inn 






MOV 


*STACK.SP 




ni ?7A7 

U 1 c f O' 








MOV 


*$ERR0R,50 


.•RESET EMT VECTOR 


022700 


001074 






CMP 


*STACK-4,R0 


;WAS STACK PUSHED ONLY TWICE 


nni Lf\' 








BEQ 


6$ 




022700 


001 070 






CMP 


*STACK-10.R0 


;WAS STACK PUSHED 4 TIMES 


001414 








BEQ 


4$ 




012767 


001070 


00504? 




MOV 


*1070,EXP.SP1 




010067 


005040 






MOV 


R0,REC.SP1 




012706 


000500 






MOV 


*STACK1.SP 


.•SETUP RESERVED STACK 










;FOR ERROR PRINTOUT 


104000 








ERROR 







467 

468 002640 007670 

469 002642 007672 

470 002644 000000 

471 002646 000000 

472 002650 013700 001070 

473 002654 022700 001422 

474 002660 001414 

475 002662 012767 001422 
4 76 002670 01006^ 004772 
477 002674 012706 000500 



4$: 



004774 



EXP.SP1 
REC.SP1 

0 

HALT 

MOV 

CMP 

BEQ 

MOV 

MOV 

MOV 



ERROR 



aWfSTACK-lO.RO 

*LftTI,R0 

5$ 

tfLRTI .EXP.ADD 

RO.REC.AOD 

*STACK1.SP 



WAS STACK PUSHED 4 TIMES 
PRINT EXPECTED STACK POINTER 
PRINT RECEIVED STACK POINTER 



;DOES STACK CONTAIN CORRECT INFO 



.•SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 





002700 


104000 






ERROR 


478 












479 


002702 


007664 






EXP. ADD 


480 


002704 


007666 






REC.ADD 


481 


002706 


000000 






0 


482 


002710 


000000 






HALT 


483 


002712 


013700 


001072 


S$: 


MOV 


484 


002716 


022700 


000005 




CMP 



.-ERROR 



;IS STACK PUSHED MORE THAN 2 OR LESS THAN 
.•PRINT EXPECTED ADDRESS 
.•PRINT RECEIVED ADDRESS 



axrSTACK-6.R0 
*5.R0 



.•DOES STACK CONTAIN CORRECT INFO 



CKKACCO POWER FAR MACRO 

TEST * 3 - POWER FAIL WITH EMT TRAP 



Mill 3 06-APR-ei K:07 PAGE 



K 2 
12-1 



48S 002722 
',86 002724 

487 002732 

488 002736 



489 

490 002744 

491 002746 

492 002750 

493 002752 

494 002754 
002754 
002762 



0014^4 
012767 
000000 
012706 



C02742 104000 



007674 
007676 
000000 
000000 

032737 
001250 



C00005 
007676 
000500 



004742 



040000 177570 



6$: 



BEO 6$ 

MOV drS.EXP.PSW 

RO.REL.PSU 

MOV *STACK1,SP 

ERROR 



EXo.PSW 
REC.PSW 

0 

HALT 



.SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



ERROR 



STACK CONTIAN WRONG PSW 
PRINT EXPECTED PSW 
PRINT RECEIVED PSW 



BIT 
BNE 



«SW14,S»SWR 
TST3 



;LOOP ON TEST? 
.•LOOP TO TST3 



L 2 

CKKACCO 11/44 POWER FAIL MACRO MlllS 06-APR-81 K:07 PAGE 13 

TEST » 4 - POWER FAIL WITH ODD ADDRESS 



SEOUF\ 



495 



002764 
002764 
002770 

002776 
002776 

496 003002 

497 003006 

498 003012 

499 003020 

500 003024 

501 003032 

502 003036 

503 003042 



104401 
000402 



104401 
005267 
005037 
012737 
012703 
012777 
012706 
005737 
012706 



003046 104000 



504 003050 

505 003052 

506 003060 
003066 



000000 
012737 
032737 
001336 



S8TTL TEST * 4 - POWER FAIL WITH ODD ADDRESS 
iTEST 4 POWER FAIL WITH ODD ADDRESS 



002772 



003740 
176112 
177776 

003032 000004 
003052 

000001 176364 
001100 
000003 
000500 



TST4: 



;;65$: 
64$: 



3$: 



000006 000004 1$; 
040000 177570 



TYPE 
BR 

.ASCIZ *4 • 



.65$ 



/*$ 



TYPE.$ENUL . 



INC 
CLR 
MOV 
MOV 

MOV 
MOV 
TST 
MOV 

ERROR 



HALT 
MOV 
BIT 
BNF 



$TESTN 

axrps 

tfSS.aXTERRVEC 
*1$,R3 

#1.aPFAIL 
*STACK.SP 

a/»3 

*STACK1,SP 



*6.5)*ERRVEC 

«swl4,a/trswR 

TST4 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCJZ 



SET KERNEL MODE 
SET TRAP VECTOR 

SET RETURN ADDRESS FOR POWER FAIL 
;SET UP TO START POWER FAIL 
.•RESET STACK 
.•CAUSE ODD ADDRESS TRAP 

.■SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



; ERROR 

ODD ADDRESS TRAP FAILED TO OCCUR 

RESET 4 

LOOP ON TEST? 

LOOP TO TST4 



CKKACCO POWER FAIL MACRO Mil 13 06-APR-81 14:07 

TEST # 5 - POWER FAIL WITH TIME OUT (KERNED 



M 

PAGE U 



SEQUENCE 



507 



516 
517 
518 
519 



003154 
003156 
0031 o? 
0031 70 
0031 76 



000000 
012706 
012737 
032737 
001 334 



001100 
000006 
040000 



S8TTL TEST # 5 - POWER FAIL WITH TIME OUT (KERNED 
.«»*•«•«««*••»*«•«•«•*•**••••••••••»»•»»••»••**•***•••••**••••' 

West 5 power fail with time out (kerned 





003070 










003070 


104401 


003076 






003074 


000402 








003102 










003102 


104401 


003740 




508 


003106 


005267 


1 76006 




509 


003112 


012737 


003132 


000004 


510 


003120 


012703 


003156 




511 


003124 


012777 


000001 


1 76264 


512 


003132 


012706 


001100 




513 


003136 


005037 


177776 




514 


003142 


010037 


160000 




515 


003146 


012706 


000500 






003152 


104000 







TST5: 



;;65$: 
64S: 



3$: 



000004 
177570 



1$: 



TYPE 
BR 

•ASCIZ 



,65$ 
64$ 
•5 • 



TVPE.$ENULL 



INC 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 

ERROR 



HALT 

MOV 

MOV 

BIT 

BNE 



$TESTN 
#3$.a#ERRVEC 
*1$.R3 

#1,aPFAIL 
*STACK,SP 

RO.a/» 160000 

*STACK1 .SP 



*STACK.SP 
#6,a>irERRVEC 

/rswi4,a#swR 

TST5 



;;TyPB ASCIZ STRING 
;;GET OVER THE ASCIZ 



;SfcT TRAP VECTOR 

.-SET UP RETURN ADDRESS FOR POWER FAIL 
;SET UP TO STAJ^T POWER FAIL 
SET STACK 
SET KERNEL MODE 
CAUSE A TIMEOUT 

.•SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



.•ERROR 

TIME out FAILED TO OCCUR 

SET STACK 

RESET 4 

LOOP ON TEST? 

LOOP TO TST5 



N 2 

CkKACCO 11/44 POWER FAIL MACRO Ml 1 1 3 06-APR-81 14:07 PAGE 15 

^EST # 6 - POWER FAIL IN THE STACK OVERFLOW (KERNED 



520 





003200 

W w 








003200 


104401 


003206 




003204 


000402 






003212 








003212 


104401 


003740 


521 


003216 


005267 


1 75676 


522 


003222 


005037 


177776 


523 


003226 


005067 


001 330 


524 


003232 


012737 


003272 


525 


003240 


012706 


000400 


526 


003244 


012703 


003266 


527 


003250 


012777 


000001 


528 


003256 


000001 




529 


003260 


012706 


000500 




003264 


104000 





530 003266 

531 003270 
5"^ 003272 
5. J 003300 

534 003304 

535 003306 

536 003310 
003310 
003316 



000000 
000407 
012737 
012703 
000002 
000000 

032737 
001 330 



S8TTL TEST # 6 - POWER FAIL IN THE STACK OVERFLOW (KERNED 
iTEST 6 POWER FAIL IN THE STACK OVERFLOW (KERNED 



TST6: 



;;65$: 
64S: 



000004 



176140 



1$: 

000006 000004 2$: 
003310 5$: 



040000 177570 



4S: 



TYPE ,65$ 
BR 64$ 
.ASCIZ ^6 • 



TVPE.$ENULL 
INC 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
WAIT 
MOV 



$TESTN 

a*ps 

FLAG 

#2$,S*ERRVEC 
#400, SP 
#1$,R3 
*1,aPFAlL 



*STACK1,SP 



ERROR 



HALT 

BR 

MOV 

MOV 

RTI 

HALT 

BIT 
BNE 



4$ 

#6,a«ERRVEC 



#SWl4,a«SWR 
TST6 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;SET KERNEL MODE 

.•CLEAR THE FLAG 

;SET SICK TRAP ADDRESS 

;SET STACK TO YELLOW ZONE 

;SET RETURN ADDRESS FOR POWER FAIL 
;SET UP TO START POWER FAIL 

.•WAIT FOR THE POWER FAIL 

; SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



.-ERROR 



SKIP SP CHECK 
RESET 4 
SET RETURN 

GO TO THE POWER FAIL ROUTINE 



;LOOP ON TEST? 
.•LOOP TO ^ST6 



'MiACCO POWER FAIL 



TEST » 7 - PQuER FAIL tflTH RESETS 

.57 



IHACRO m 1 1 3 06-APR-81 U:07 PAGE 



B 

16 



SEQUffiCE 17 



\J\J J JC\f 










003326 




000402 










003332 


104401 


003740 


538 003336 


005267 


175556 


539 003342 


005037 


1 7777h 


S40 0033A6 


012703 


003404 


541 003352 


012706 


oonoo 


542 003356 


012777 


000001 1 76032 


543 003364 


000005 




544 003366 


000005 




545 003370 


000005 




546 003372 


000774 




547 003374 


012706 


0C0500 


003400 


104000 





548 
549 
550 
551 



003402 
003404 
003410 
003416 



000000 
012706 
03273/ 
001340 



001100 
040000 



SBTfL TEST » 7 - POWER FAIL WITH RESETS 
iTEST*7 POWEr'fAIL WITH RESETS 
tST7: 



;;65$: 
64$: 



3$: 



177570 



1$: 



TYPE 


,65S 


BR 


64S 


.ASCIZ 


• 7 • 


TyPE.SENUL^ 


INC 


STESTN 


CLR 


»rps 


MOV 


#1$.R3 


MOV 


♦STACK, SP 


MOV 


#1.aPFAlL 


RESET 




RESET 




RESET 




BR 


3$ 


MOV 


#STACK1 .SP 


ERROR 





HALT 
MOV 
BIT 
BNE 



#STACt(.SP 
#SWl4.a#SWR 

TST7 



;;TyPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



;SET KERNEL WDE 
.SET RETURN ADDRESS 
.•RESET STACK 

.SET UP TO START POWER FAIL 

.'RESETS 
;T0 WAIT 
;IN 
.•LOOP 

.-SETUP RESERVED STACK POINTER 
.FOR ERROR PRINTOU^ 



.•ERROR 

;RESFT LOOP FAILED 

; RE SET STACK 
;LO(y ON TEST? 
;LOOP TO TST7 



C 3 



CKKArcO POWER FAIL MACRO M1113 06-APR-81 U:07 PAGE 17 

TEST # 10 - MEMORV MANAGEMENT ABORT TEST 



SEUuEN 



55? 



564 
565 
566 
567 
568 
569 
570 



003522 000000 



003524 
003530 
003534 
003542 
003550 



005037 
012706 
012737 
032737 
001 323 



S8TTL TEST # 10 - MEMORV MANAGEMENT ABORT ^EST 



*TEST 10 



U034i:U 








UU34<;u 




UUj«icO 




'Sat/ 0/ 


AAAZ.n5 
















1 AZ.AA1 






553 003436 


005267 


175456 




534 003442 


005037 


■\7777t 




555 003446 

J J J \J\J J^^\J 


012737 


003522 


000004 


556 003454 


004767 


001 1 1 0 




557 003460 


012737 


003504 


000250 


558 003466 


012703 


003524 




559 003472 


0\2777 


000001 


175716 


560 003500 


005237 


y77S72 




561 003504 


012706 


001100 




562 003510 


005237 


140000 




563 003514 


012706 


000500 




003520 


104000 







TSTIO: 



;;65$: 
64$: 



3$: 



MEMORY MANAGEMENT ABORT TEST 



TYPE 
BR 

.ASCIZ 



.65$ 
64$ 
• 10 * 



;;TyPE ASCIZ STRING 
;;6ET OVER THE ASCIZ 



TyPE.$ENUL.. 



INC 
CLR 
MOV 
JSR 
MOV 
MOV 
MOV 
INC 
MOV 
INC 
MOV 

ERROR 



$TESTN 

»ifPS ;SET KERNEL MODE 

*4$.a#ERRVEC .-SET FOR TIMEOUT 

PC. MAP ;MAP THE WORLD 



#3$.a#MMVEC 
#1$.R3 
/irl.aPFAIL 
aWTWO 
*STACK,SP 
SXrl 40000 
/IfSTACKl ,SP 



;SET MEMORY MANAGEMENT VECTOR 
;LOAD PF RETURN 

;SET UP TO START POWER FAIL 
;TURN MEMORY MANAGEMENT ON 
;ZAP STACK 
.•ACCESS VIOLATION 

.•SETUP RESERVED STACK POINTER 
;FOR ERROR PRINTOUT 



; ERROR 



;N0 VIOLATION OR TRAP TO 4 







4$: 


HALT 






177572 




1$: 


CLR 


a^wiRO 


.-TURN OFF MEMORY MANAGEMENT 


00' 100 




2$: 


MOV 


tfSTACK.SP 


.•MAKE A NEW STACK 


000006 


000004 




MOV 


«6,S4rERRVEC 


.•RESET 4 


040000 


1 77570 




BIT 


/tfSWl4.S#SWR 


.•LOOP ON TEST? 






BNE 


Tsno 


.•LOOP TO TSTIO 



D 3 
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1 # n - MEMORV VOLATILITY TEST 



57' 



s8ttl test # 11 - memory volatility test 
West ii memory volatility test 











TST1 1 • 


NOP 






nns?*\7 

\J\JJCOf 


1 75340 






INC 


$TESTN 




005037 

\J\J J\J J f 


1 7777fi 






CLR 


a*ps 




004767 


0001 70 




4S: 


JSR 


PC. LOAD 


S7S 00^S70 


012703 


003626 






MOV 


*1$,R3 


J f \j v V J J ' 


104401 


003602 






TYPE 


.65$ 


003600 


000402 








BR 


64$ 










;;65$: 


.ASCIZ •II • 


003606 
003606 








64$: 






■'04401 


003740 






TYPE.SENULL 


577 003612 


004767 


000246 




2$: 


JSR 


PC. CHECK 


578 003616 


012777 


000001 


175572 




MOV 


*1.aPFAlL 


579 003624 


000772 








BR 


2$ 


580 003626 


012706 


001100 




1$: 


MOV 


•STACK, SP 


581 003632 


004767 


000226 






JSR 


PC. CHECK 
«SWl4,a«SUR 


582 003636 


032737 


040000 


177570 




BIT 


003644 


001342 








BNE 


TST11 



SET KERNEL MODE 

LOAD ALL MEMORY WITH 52525 

POWER FAIL RETURN ADDRESS 

;TYPE ASCJZ STRING 

.-GET OVER THE ASCIZ 



; CHECK FOR THE 52525 

;SET UP TO START POWER FAI 
LOOP FOR EVER OR POWER FAIL 
ZAP THE STACK 
CHECK ALL MEMORY 
LOOP ON TEST? 
LOOP TO TST11 



CKKACCO n/4<. POWER FAIL 
IHO or PASS ROUTINE 

58<. 
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SBFTL END OF PASS ROUTINE 



•INCREMENT THE PASS NUMBER (SPASS) 

•INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
•TrPE "tND PASS *XXXXX" (WHERE XXXXX JS A DECIMAL NUMBER) 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO PRETST 



UU 5o*»o 
















UU3o*»o 


UUUc'«U 








MOD 






UU JO jU 


UU JcO' 








I wr 

1 iNL 




•DOM'T Al 1 nu A K1P(^ MlMRPR 


UU jC3*» 


rtZ.57A7 








□ i L 


iri 00000 tPA^^ 


UU300c 


AA^'^?7 
UU3JC ' 














UU jOO*» 










unRD 


1 

1 




UU jOOO 


UUjvcc 








OVj 1 




; YES 


UU jO' w 


ni ?7^7 

\J \ CI J' 








MOV 




'•RFSTORF fOllNTFR 


UUJO' C 












1 














«cnpr T 






VV JU r u 














■TYPF "FND PA^^ *" 






175P14 






MOV 


$PASS,-(SP) 


•^AVF SPA^^ FOR TYPFDUT 


CO 3 706 


104405 








TyPDS 




•GO TYPE — DECIMAL ASCII WITH 


003710 


104401 


003740 






TYPE 


.SENULL ; 


;TYPE A NULL CHARACTER 


0037U 


01 3700 


000042 




$GET42: 


MOV 


a^42.R0 


;GET MONITOR ADDRESS 


003720 


001405 








BEG 


$DOAGN 


.•BRANCH IF NO MONITOR 


003722 


000005 








RESET 




.•CLEAR THE WORLD 


C0372A 


004710 






SENDAD : 


JSR 


PC.(RO) ; 


;G0 TO MONITOR 


003726 


000240 








NOP 




.•SAVE ROOM 


003730 


000240 








NOP 




.-FOR 


003732 


000240 








NOP 




.-ACT 11 


00373A 








SDOAGN: 








003734 


000137 








JMP 


a(PC)+ 


.•RETURN 


003736 


002020 






SRTNAD: 


.WORD 


PRETST 




003740 


377 


377 


000 


SENULL: 


.BYTE 


-1.-1,0 

<15><12>/END PASS 


;NULL CHARACTER STRING 


003743 


015 


012 


105 


SENDMG: 


-ASCIZ 





F 
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OAD l»1E«0RV WITH DATA PATTERN* 



586 








.S8TTL 


LOAD 


McMORt with data 


587 003760 


004767 


000604 




LOAD: 


JSR 


PC .MAP 


588 003764 


016704 


000574 






MOV 


L JMJ T ,R4 


589 003770 


016705 


000572 






PlOv 


DAi A,H3 


590 003774 


012737 


004024 


00025C 




HUV 


wc» . o»*nnvt I. 


591 004002 


012700 


010502 






MOV 


«CAir\ DA 

l»1 OAAAA DA 


592 004006 


062700 


120000 






ADD 


593 004012 


012737 


000001 


1 llVfc 




MOV 


» 1 . aOwinKU 


594 004020 


010520 






1 »: 


MOV 




595 004022 


000776 








dK 


IS 


596 004024 


005 504 






ci' 


Del 


D/ 


597 004026 


100411 








DM f 


7C 

J* 


OVO U04UjU 


\)iCf UU 


1 cUUUU 






MDW 

nuv 




599 004034 


062737 


000200 


172352 




ADD 


»200.a#KlPAR5 


600 004042 


012737 


000001 


177572 




MOV 


»l.a)«MMRO 


601 004050 


000002 








RTI 


a^RO 


602 004052 


005037 


177572 




3$: 


CLR 


603 004056 


062706 


000004 






ADD 


*4.SP 


604 004062 


000207 








RTS 


PC 



SFOUF 



TERN 

SET UP MEMORY MANAGEMENT REGISTERS 

GET BANK COUNT 

GET THE DATA PATTERN 

SET UP FOR MEMORY MANAGEMENT ABORTS 

FORM ADDRESS OF WHERE TO START WRITING THE DATA 

USE KIPAR5 FOR ADDRESSING 

TURN ON MEMORY MANAGEMENT 

WRITE THE DATA 

LAST BANK WRITTEN? 

BRANCH IF YES 

RESET ADDRESSING REGISTER 

SIZE NEXT 4K BANK 

CLEAR MEMORY MANAGEMENT ERRORS 

RETURN TO CONTINUE WRITING 

TURN OFF MEMORY MANAGEMENT 

CLEAN UP THE STACK 

RETURN TO CALLER 



utA'-CC M/U PQWfR FAIL 
■^K< M£HC«Y FOR CORRECT 



HACRO Mill 3 
DATA PATTERN 



605 
606 
60/' 
608 
609 
610 
611 
612 
613 
6U 
615 
616 
617 

61 « 
619 
t?.0 
621 
622 
623 



00A064 
00^070 
00407A 
004100 
004106 
004112 
004116 
004124 
004126 
004130 
004132 
004136 
004144 
004152 
004160 
004164 
004170 



004767 
016704 
016705 
012737 
012700 
062700 
012737 
012001 
020501 
001775 
010067 
162767 
042767 
013767 
010567 
010167 
012706 



000500 
000470 
000466 

004220 000250 

010502 

120000 

000001 177572 



003542 

000002 003534 

160000 003526 

172352 003522 



003474 
003472 
000500 



.S8TT 
CHECK 



1$: 



004174 104000 



624 


004176 


007700 






625 


004200 


007702 






626 


004202 


007660 






627 


004204 


007662 






628 


004206 


000000 






629 


004210 


000000 






630 


004212 


010560 


177776 




63 


004216 


000742 






632 


004220 


005304 






633 


004222 


100411 






634 


004224 


012700 


120000 




635 


004230 


062737 


000200 


172352 


636 


004236 


012737 


000001 


^ 77572 


637 


004244 


000002 






638 


004246 


005037 


177572 




639 


004252 


062706 


000004 




640 


004256 


000207 







-APR-81 14:07 
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SiOUEUCf 5^ 



CHECK MEMORV FOR CORRECT DATA PATTERN 



JSR 


PC .MAP 


SET UP MEMORY MANAGEMENT REGISTERS 


MOV 


LJMJT.RA 


■GET BANK COUNT 


MOV 


DATA,R5 


•GET DATA PATTERN 


MOV 


*2$.a*MMVEC 


•SET UP FOR MEMORY MANAGEMENT ABORTS 


MOV 


#END,RO 


•ADDRESS OF WHERE DATA PATTERN STARTS 


ADD 


*1 20000.ro 


■USE KJPAR5 FOR ADDRESSING 


MOV 


*1.a(rMMR0 


■TURN ON MEM, MANAGEMENT 


MOV 


(R0)*.R1 


■READ THE DATA 


CMP 


R5.R1 


■IS IT GOOD? 


BEO 


1$ 


•BRANCH IF YES 


HOv 


RO.VIR.ADD 




SLB 


*2, VJR.ADD 




BJC 


#160000. VI R. ADD 




MOV 


a#KJPAR5.PAR.0FF 




MOV 


R5,EXPDAT 




MOV 


R1.RECDAT 




MOV 


#STACK1 .SP 


.•SETUP RESERVED STACK 
.-FOR ERROR PRINTOUT 


ERROR 







VIR.ADD 
PAR. OFF 
EXPDAT 
RECDAT 

0 

HALT 

MOV 

BR 

DEC 

BMI 

MOV 

ADD 

MOV 

RTI 

CLR 

ADD 

RTS 



R5.-2(RO) 

1$ 

R4 

3$ 

#1 20000.ro 

#200.a*KIPAR5 

#1.a*MMR0 

a-wiRO 

#4.SP 

PC 



.-ERROR 

PRINT VIRTUAL ADDRESS 
PRINT PDR OFFSET 
PRINT EXPECTED DATA 
PRINT RECEIVED DATA 



WRITE GOOD DATA 

GO READ THE NEXT WORD 

LAST BANK COMPARED? 

BRANCH IF YES 

RESET ADDRESSING REGISTER 

SIZE NEXT 4K BANK 

CLEAR MEMORY MANAGEMENT ERRORS 

CONTINUE TESTING 

TURN OFF MEM. MANAGEMENT 

CLEAN UP THE STACK 

RETURN FOR CALL 



CKKACCO POWER FAR 

PARITY FRROR HANDLER 
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SEOUE'JCE 53 



tA2 

643 004260 

644 004262 

645 004264 

646 004266 

647 004270 

648 004272 

649 004300 

650 004302 

651 004310 

652 004312 

653 004314 

654 004316 

655 004320 

656 004324 

657 004326 

658 004332 

659 004336 

660 C04340 

661 004342 

662 004350 

663 004356 



^^'5^27 
OOOOol 
002002 
000000 
000776 
032767 
001006 
023727 
101002 
000000 
000776 
000000 
005737 
100405 
162700 
012705 
074500 
010320 
013737 
012767 
000002 



000077 
1 77740 

1 77744 

000002 
000002 



177744 
000001 



177744 
1 77704 



.S8TTL PARITV ERROR HANDLER 



PARERR: D< 
PARFLG: 



If: 

173442 2S: 
010502 

3$: 
4$: 



5$: 



br< 

BIT 

BNE 

CMP 

BHJ 

HALT 

BR 

HALT 

TST 

BMI 

sue 

MOV 
XOR 
MOV 
MOV 
MOV 
RTI 



(PC)* 
1 

2% 
II 

♦77. HIADRS 
4S 

*«fuOADRS,#END 
4S 

3$ 



a^EMERR 
5$ 

#2.R0 
*8IT01 .R5 
R5.R0 
R3.(R0)+ 

aWEMERR.a-WEMERR 
#1 , PARFLG 



FIRST TIME IN"* 
BRANCH IF YES 

NO—ANOTHER PARITY ERROR OCCURRED WHILE 

PROCESSING THE FIRST ONE. 

MSB'S OF PARITY ERROR ADDRESS=0? 

BRANCH IF NO 

LSB'S ABOVE THE PROGRAM? 

BRANCH IF YES 

PARITY ERROR IS IN THE PROGRAM 



DATA PARITY ERROR OCCURRED 
DID AN ABORT OCCUR? 
BRANCH IF YES 
BACKUP BY ONE WORD 



REWRITE THE BAD DATA 

.•CLEAR ERROR INDICATORS 
INITIALIZE PARITY ERROR FLAG 
CONTINUE TESTING 



'KKACCC n/44 POWER fAlL 
POWER MIL ROUTINE 
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SEQUENCE 54 



664 

66S 

666 004360 

667 004566 

668 004372 

669 004400 

670 004404 

671 004410 

672 004412 

673 004416 

674 004420 

675 004422 

676 004424 

677 004426 

678 004430 

679 004432 

680 004436 

681 004442 

682 004450 

683 C04452 
684 

685 004454 

686 004460 

687 004466 

688 004472 

689 004476 

690 004500 

691 004502 

692 004504 

693 004506 

694 004510 
69b 004512 
696 004520 
697 

698 004522 

699 004524 

700 004526 

701 004530 

702 004534 

703 004536 

704 004540 

705 004542 
706 

707 

708 004546 

709 004550 

710 004554 

711 004560 

712 004562 

713 004564 
004566 



714 



012767 
005067 
012777 
011667 
022706 
100402 
012706 
010046 
010146 
010246 
010346 
010446 
010546 
010667 
004737 
012777 
000000 
000240 

016706 
012777 
004767 
004737 
012605 
012604 
012603 
012602 
012601 
012600 
012/77 
000 1 1 3 

104401 
010037 
000000 
000167 
104401 
010107 
000000 
000167 



000000 
000024 
000024 
000000 
000000 
000000 
052525 



U7777 
000170 
004522 
000142 
000400 

001100 



000122 
1 72240 
004454 



000100 
004534 
000200 
172240 



173432 



000026 
000026 



.SerTL POWER FAIL ROUTINE 



0001 74 
000150 



POWDUN: 



1$: 



000100 



000066 



POWUP : 



004360 000034 



173444 



MOV 

CLR 

MOV 

MOV 

CMP 

BMl 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

HALT 

NOP 

MOV 
MOV 
JSR 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



#-1.FLAG 


FIRST INSTRUCTION FLAG 


FLAG 


NOW CLEAR IT 


*ILLUP.SUVEC 


IF TOO FAST 


(SP),ERRAD 


SET THE ERROR ADDRESS 


*400,SP 


YELLOW OR RED? 


1$ 


NO 


»STAC<,SP 


SET EMERGENCY STACK 


R0.-(R6) 


PUT 


R1 .-(R6) 


■THE 


R2,-(R6) 


•RcoJSTcRS 


R3.-(R6) 


•ON 


R4.-(R6) 


•THE 


R5.-(R6) 


;STAC)( 


SP.SAV6 


;SAVE THE STAC< POINTER 


PC.a/rSIPARO 


rSET TIME FACTOR 


#POWUP,aUVEC 


•RESET THE UP VECTOR 




;WAIT FOR POWER DOWN 



SAV6.SP 

*ILLDWN.aDVEC 

PC.SETPAR 

PC.aCSIPARO 

(R6)>.R5 

(R6)>.R4 

(R6)>.R3 

(R6)>.R2 

(R6)*,R1 

(R6)*.R0 

tfPOWDWN.aDVEC 

(R3) 



RESET SP 

SET TOO FAST DOWN VECTOR 

GO PUT TIME FACTOR SUBROUTINE IN S IPARO-S IPAR3 

SET TIME FACTOR 

TAKE 

THE 

REGISTERS 
FROM 
THE 
STACK 

RESET THE DOWN VECTOR 
JUMP INDIRECT TO R3 



ILLUP: 


TYPE 




POWER UP BEFORE POWER DOWN COMPLETE 


UPF 








HALT 








JMP 


200 




ILLDWN: 


TYPE 


.•POWER DOWN BEFORE UP COMPLETE 




DOWN 








HALT 








JMP 


200 




ERRAD: 


.WORD 


0 


■RETURN ADDRESS FROM POWER FAIL 


UVEC: 


.WORD 


24.26 


•UP ADDRESS PAIR 


DVEC: 


.WORD 


24.26 


•DOWN ADDRESS PAIR 


SAV6: 


.WORD 


0 


•SOME PLACE TO PUT THE SP 


FLAG: 


.WORD 


0 


•1 INSTRUCTION DOWN FLAG 


LIMi; 


.WORD 


0 


•TOP OF MEMORY 


DATA: 


.WORD 


52525 


•WHAT IS TO BE WRITTEN INTO MEMORY 



'■ricACCO n/C^ POWER FAIL 
SETUP MEMORV MA\AGMENT REGISTERS 
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SEOUFNtt 



715 

717 004570 

718 004576 

719 004604 

720 004612 

721 004620 

722 004626 

723 004634 

724 00^642 

725 004650 

726 004656 

727 004664 

728 004666 

729 004670 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
000207 
000000 
000776 



.S8TTL SETUP MEMORY MANAGMENT REGISTERS 



000000 172340 MAP: 

077406 1 72300 

000000 172352 

077406 172312 

000200 1 72354 

000000 172314 

177600 172356 

077406 172316 

000020 172516 

004666 000250 

MMERR: 



MOV *0,a#KlPARO 

MOV *77406.a#KIPDR0 

MOV *0,a#KlPAR5 

MOV #77406, a#KlPDR5 

MOV *200,a*KlPAR6 

MOV #0,a#KlPDR6 

MOV #1 77600, a#KlPAR7 

MOV *77406,a#KIPDR7 

MOV «8]r04,a#MMR3 

MOV #nMERR,a#IWVEC 

RTS PC 
HALT 

BR MMERR 



SETUP PARC FOR 1ST 4K 

4K. R/W, EXPAND UP 

SET UP PAR5 FOR 1ST 4K 

4K. R/U, ED=UP 

SET UP PAR6 FOR 2ND 

ABORT ALL REFERENCES 

SET UP PAR7 FOR I/O PAGE 

4K. R/W. ED=UP 

SET UP FOR 22-81 T MAPPING 

SET UP MEMORY MANAGEMENT VECTOR 

RETURN FROM CALL 

MEMORY MANAGEMENT ERROR 



iKKACCO POWER FAIL MACRO Mill 3 06-APR-81 K:07 

SUBROUTINE TO LOAD SIPAR0-SIPAR3 WITH A SUBROUTINE 
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SEQUENCE 



^70 

731 00A672 012737 CI 2700 172240 
752 00A700 012737 001777 Mllkl 

733 004706 012737 077001 172244 

734 004V14 012737 000207 V2246 

735 004722 000207 
736 

737 



,S8TTL SUBROUTINE TO LOAD SIPAR0-SIPAR3 WITH A SUBROUTINE 



*12700.a#SIPAR0 .-LOAD PARO 1 WITH MOV #1 777, RO 
#1 777, a#SIPAR1 

*77001 .S#SJPAR2 .-LOAD PAR2 WITH SOB RO.. 
#207.a#SIPAR3 .-LOAD PAfi3 WITH RTS PC 
PC 

TO SIZE MEMORY 



SETPAR: MOV 
MOV 
MOV 
MOV 
RTS 

S8TTL ROUTINE 

S8TTL ROUTINE TO SIZE MEMORY 
•******•**•••••**••***•***•••*•**************•***•*****•*••**••• 

iCALL: 

* JSR PC.SSIZE 

* RETURN 
•SLSTAD WILL CONTAIN: 

* WITH KT11 OPTION 

* WITHOUT KT11 OPTION 
♦$LST8K WILL CONTAIN THE LAST 
•$KT11 IS THE MEMORY MANAGEMENT KEY 
•8IT07 = 0 DON'T USE MEMORY MANAGEMENT 

MUST BE SETUP BEFORE THE CALL 
•8IT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 

* DETERMINED BY ROUTINE 



— LAST VIRTUAL ADDRESS OF THE LAST BANK 

— LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
BANK AS A SAF 





U 1 UUhO 








MOV 


RO.-(SP) 


Wtf CO 


\J\\J \ HO 








MOV 


Rl.-(SP) 
R2,-(SP) 




KJ 1 vcHD 








MOV 




KJ 1 w jHD 








MOV 


R3.-(SP) 




\J 1 VHHO 








MOV 


R4.-(SP) 




\J 1 Jf HO 


v/wv/ 1 1 H 






MOV 


a*114.-(SP) 


UUh I He 


m X7Lf^ 

\J \ Jf HO 


KJKJKJ 1 1 O 






MOV 


a/lf116.-(SP) 


'JUh f ho 


m ?7^7 


\J\I\J 1 I o 


onm 14 

VVV 1 1 H 




MOV 


*116.»iri14 


004754 


012737 


000002 


0001 1 6 




MOV 


*RTI,a#116 


004762 


013746 


000004 






MOV 


a*ERRVEC.-(SP) 


004766 


013746 


000006 






MOV 


a*ERRVEC+2.-(SP) 


004772 


010600 








MOV 


SP.RO 










;;SET 


THE ERRVEC PS TO THE PRESEI 


004774 


104400 








TRAP 


(SP) ♦.a#ERRVEC*2 


004776 


012637 


000006 






MOV 


005002 


012701 


003776 






MOV 


*3776,R1 


005006 


105727 








TST8 


(PC)* 


005010 


000200 






$KT11: 


.WORD 


200 


005012 


100145 








BPL 


SCORE 

*$KTNEX,a*ERRVEC 


005014 


012737 


005320 


000004 




MOV 


005022 


005737 


}77S72 






TST 


a^SRO 


005026 


052767 


100000 


177754 




BIS 


#1 00000. $KT11 


005034 


012737 


005064 


000004 




MOV 


«100S,a#ERRVEC 


005042 


005737 


1 70200 






TST 


a*1 70200 


005046 


012737 


1 76200 


005104 




MOV 


*1 76200, a*$S TOP 


005054 


012737 


000200 


005102 




MOV 


/r200,a/r$MAP 


005062 


000411 








BR 


SMAPRG 


005064 


012737 


006200 


005104 


100$: 


MOV 


*6200.a#$STOP 


005072 


022626 








CMP 


(SP)*,(SP)* 


005074 


005037 


005102 






CLR 


a#$MAP 


005100 


000412 








BR 


SNOMAP 


005102 


000000 






$MAP: 


.WORD 


0 


005104 


000000 






SSTOP: 


.WORD 


0 


005106 


012703 


00003' 




SMAPRG 


: MOV 


«37,R3 


005112 


012702 


1 70200 






MOV 


*1 70200. R2 


005116 


005022 






100$: 


CLR 


(R2)* 



.-.•SAVE 
;;SAVE 
; ; SAVE 
.-.-SAVE 
.-.-SAVE 



RO ON 
R1 ON 
R2 ON 
R3 ON 
R4 ON 



THE 
THE 
THE 
THE 
THE 



STACK 
STACK 
STACK 
STACK 
STACK 



.-.-SAVE MEMORY ERROR VECTOR PS & PC 

;; IGNORE PARITY ERRORS WHILE SIZING 

.-.-SAVE PRESENT ERROR VECTOR PS & PC 

.-.-SAVE THE STACK POINTER 
NT PS 

;;PUSH OLD PSW AND PC ON STACK 

.-.SAVE THE PSW IN a*ERRVEC*2 
;; SETUP ADDRESS 
;;USE MEMORY MANAGEMENT? 
;;SET TO USE MEMORY MANAGEMENT 
;;BR IF NO 

;;SET"FOR TIMEOUT 
;;KT11 ARE YOU THERE? 
;; YES— SET KTIl KEY 
;;SET FOR TIMEOUT 
;;UNIBUS MAP ARE YOU THERE? 
;; YES-SET COMPARISON VALUE FOR 11/70 
;;TURN ON MAP INDICATOR 
;;G0 SET UP MAP REGISTERS 
.-.•COMPARISON VALUE FOR 18 BIT MAPPING 
;; CLEAN OFF STACK 
;;MAKE SURE MAP INDICATOR 



BK001 



BK001 
BK001 
BK001 
BK001 
BK001 
BKOOl 
BK001 
BKOOl 



;;=200 IF MAP PRESENT 
.-.-FILLED WITH APPROPRIATE 
;;SET UP COUNTER 
; .-START WITH MAPLO 
.-.-LOAD ALL MAP REGISTERS 



TURNED OFF 
BKOOl 

BKOOl 
COMPARISON VALUE 

BKOOl 
BKOOl 
BKOOl 



BKOOl 



CKKACCO 11/44 POWER FAIL mACRO Mn3 06-APR-81 

ROUTINE TO SIZE MEMORY 

005120 012722 000074 MOV 

005124 077304 SOB 
005126 SNOMAP: 

005126 005046 CLR 

005130 012702 172340 MOV 

005134 012703 000010 MOV 

005140 012762 077406 177740 1$: MOV 

005146 011622 MOV 

005150 062716 000200 ADD 

005154 077307 SOB 

005156 012742 177600 MOV 

005162 005042 CLR 

005164 012737 005202 000004 MOV 

005172 012737 000060 172516 MOV 

005200 000401 BR 

005202 022626 2$: CMP 

005204 005237 177572 3$: INC 

005210 012737 005256 000004 MOV 

005216 105737 005102 TST8 

005222 100006 BPL 

005224 012737 005300 000114 MOV 

005232 013737 000006 000116 MOV 

005240 005737 143776 4$: TST 

005244 062712 000040 ADD 

005250 023712 005104 CMP 

005254 101371 BHI 

005256 011202 SKTOUT: MOV 

005260 005037 177572 CLR 

005264 105737 005102 TST8 

005270 100034 BPL 

005272 005037 172516 CLR 

005276 000431 BR 

005300 013704 177744 SMMOUT: MOV 

005304 010437 177744 MOV 

005310 032704 000001 BIT 

005314 001360 BNE 

005316 000002 RTI 

005320 042767 100000 177462 SKTNEX: BIC 

005326 012737 005356 000004 SCORE: MOV 

005334 005002 CLR 

005336 062701 004000 1$: ADD 

C05342 062702 000040 ADD 

005346 005711 TST 

005350 022701 177776 CMP 

005354 001 370 BNE 

005356 162701 004000 SCROUT: SUB 

005362 162702 000040 SSIZEX: SUB 

005366 010006 MOV 

005370 012637 000006 MOV 

005374 012637 000004 MOV 

005400 012637 000116 MOV 

005404 012637 000114 MOV 

005410 010167 000020 MOV 

005414 010267 000016 MOV 

005420 012604 MOV 

005422 012603 MOV 

005424 012602 MCV 



L 3 

14:07 PAGE 25-1 



SEOUFNCE 37 



#74. (R2)* 
R3,100$ 

-(SP) 

*KIPAR0.R2 
#*D8.R3 
#77406. -40(R2) 
(SP).(R2)* 
#200. (SP) 
R3,1$ 

#1 77600. -(R2) 
-(R2) 

#2$,a#ERRVEC 

#60.a#SR3 

3$ 

(SP)+.(SP)* 
ea#SRO 

#$KTOUT.a#ERRVEC 

a#$MAP 

4$ 

#$MM0UT,a#114 

a#ERRVEC*2.a#116 

a#l 43776 

#40, (R2) 

a#$ST0P.(R2) 

4$ 

(R2).R2 
a#SRO 

a#$mp 

SSIZEX 

a#SR3 

SSIZEX 

affi 77744. R4 

R4.a»1 77744 

#1 .R4 

SKTOUT 

#1 00000. SKT11 

#$CR0UT,a#ERRVEC 

R2 

#4000, R1 

#40,R2 

(R1) 

#1 77776, R1 
IS 

#4000. Rl 
#40.R2 

RO SP 

(SP)*.a#ERRVEC*2 
(SP)+.a#ERRVEC 

(SP)+.a#ii6 
(SP)+.a#ii4 

Rl.SLSTAD 

R2.$LSTBK 

(SP)*.R4 

(SP)*,R3 

(SP)*.R2 



;;W!TH THE VALUE 17000000 
;;D0 ALL 31 REGISTERS 



6K001 
BK001 



.•INITIALIZE FOR "PAR" LOADING 

.•ADDRESS OF FIRST "PAR" 

.LOAD EIGHT "PAR.'S" AND EIGHT 'PDR.' 

;PDR = 4K, UP. READ/WRITE 

.'LOAD 'PAR" 

.•UPDATE FOR NEXT 'PAR" 

.•LOOP UNTIL ALL EIGHT ARE LOADED 

.•SETUP KIPAR7 FOR I/O 

.SETUP KIPAR6 FOR TESTING 

.•CATCH TIMEOUT IF NO SR3 

.•ENABLE 22 BIT MODE AND UNIBUS MAP 

;THIS PDP-11 HAS A SR3 REGISTER 

.•CLEAN OFF THE STACK—NO SR3 

.•TURN ON MEMORY MANAGEMENT 

;;SET FOR TIME OUT 

; IS MAP THERE? 

; NO-SKIP 

;SET UP MEMORY ERROR VECTOR 

;;LOCK OUT INTERRUPTS BK001 

.-TRAP ON NON-EX-MEM 

.•MAKE A IK STEP 

;LAST ONE? 

; NO— TRY IT 

;GET LAST BANK+1 

;TURN OFF MEMORY MANAGEMENT 

;IS MAP THERE? 

;NO-SK IP 

.■TURN OFF MAP 

;SAVE MEMORY ERROR REGISTER 
.CLEAR BITS IN REGISTER 
.•MEMORY TIMEOUT? 
; YES-EXIT 

.•MUST BE PARITY ERROR-IGNORE IT 

;KT11 NON-EXISTENT 

;;SET FOR TIMEOUT 

;SET UP BANK 

.•INCREMENT BY IK 

;1K STEP 

.•TRAP ON TIME OUT 

;LAST ONE 

; NO— TRY AGAIN 

DROP BACK 
RESTORE THE STACK 
.•RESTORE ERROR VECTOR 

.•RESTORE MEMORY ERROR VECTOR 

LAST ADDRESS 
LAST BANK 
RESTORE R4 
RESTORE R3 
RESTORE R2 



BkOOI 



BKOOl 
BKOOI 
BKOOI 



BKOOI 
BKOOI 
BKOOI 

BKOOI 
BKOOI 
BKOOI 
BKOOI 
BKOOI 



BKOOI 



CKKACCO n/4A POWER FAIL 

ROUTINE TO SIZE MEMORY 

005426 012601 

005430 012600 

005432 000207 

005434 000000 

005436 000000 



M 3 

MACRO Mill 3 06-APR-81 14:07 PAGE 25-2 



MOV 
MOV 

RTS 

SLSTAD: .WORD 
$LST8K: .WORD 



(SP)*.R1 
(SP)*.RO 

PC 

0 

0 



SEQUENCE 



.-.RESTORE R1 
;; RE STORE RO 

;; CONTAINS THE LAST ADDRESS 
;; CONTAINS THE LAST BANK 



N 3 



CKKACCO 11/44 POWER fAIL KACRC M1113 06-APR-81 14;07 PAGE 26 

Bir»iARY TO OCTAL (ASCII) AND TYPE 



SEQUENCE 59 



739 



005440 
005444 
005452 
005456 
005462 
005464 
005472 
005500 
005506 
005510 
005512 
005514 
005520 
005522 
005526 
005532 
005536 
005542 
C05544 
005546 
005550 
005552 
005554 
005556 
0C5560 
005562 
005566 
005570 
005574 
005576 
005600 
005602 
005604 
005610 



01 7646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 
005404 
062704 
110467 
116704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105367 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 



000000 

000001 00021 1 

000207 

000002 

000001 000171 
000006 000165 
000005 0001 54 



000145 

000006 
000132 
000125 
000012 



000076 
177770 



000060 
000040 



S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

■ft************************************************************** 

'•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) Nl/eER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM.-(SP) 

N 
M 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

M=1 OR 0 

;;1=:TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPON ;;CALL FOR TYPEOUT 



•STYPOC ENTER 

•CALL: 

• MOV 

• TYPOC 
STYPOS: MOV 

M0V8 
M0V8 
ADD 
BR 

STYPOC: M0V8 
M0V8 

STYPON: M0V8 
MOV 
MOV 
MOV 
M0V8 
NEC 
ADD 
M0V8 
M0V8 
MOV 
CLR 

1 $ : ROL 
BR 

2S: ROL 
ROL 
ROL 
MOV 

3$: ROL 
DEC8 
BPL 
BIC 
BNE 
TST 
BEO 

4S: INC 
BIS 

5S: BIS 



HERE FOR TYPEOUT OF A 16 BIT NUMBER 



NUM.-(SP) 

a(SP).-(SP) 
1(SP),S0FILL 
(SP) +,$0M0DE+1 
#2,(SP) 
STYPON 
*1.S0FILL 
*6.$0M0DE+1 
*5.S0CNT 
R3.-(SP) 
R4.-(SP) 
R5.-(SP) 
S0M0DE+1,R4 
R4 

#6.R4 
R4.$0M0DE 
S0FILL,R4 
12(SP).R5 
R3 
R5 
3S 
R5 
R5 
R5 

R5,R3 
R3 

SCMODE 
7S 

*1 77770, R3 
4S 
R4 
5S 
R4 

#'0.R3 
#• .R3 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 

SET THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SAVE R4 
SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLOWED 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NUMBER 

CLEAR THE OUTPUT WORD 

ROTATE MSB INTO "C" 

60 DO MSB 

FORM THIS DIGIT 



GET LS8 OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 



»tK*rr^ 'V<,4 POWER MIL MAC«>0»«''V5 D6-APR-81 

TO oCMi (ASCII) AND TyPE 



0056U 


110367 


000040 


wove 


005620 


104401 


C0566C 


TYPE 


005624 


105567 


000052 ^J: 


DECS 


005650 


005547 




BGT 


005632 


002402 




BlT 


005654 


005204 




INC 


005656 


000744 




BR 


005640 


012605 


6$: 


MOV 


005642 


012604 




MOV 


005644 


012605 




MOV 


005646 


016666 


0D00O2 000004 


liOV 


005654 


012616 




MOV 


005656 


000002 




RTI 


005660 


000 


8S: 


.BYTE 


005661 


000 




.BVTE 


005662 


000 


SOCNT: 


.BYTE 


005665 


000 


SOHLL: 


.BYTE 


005664 


000000 


SOMODE : 


.WORD 



B 4 



U:07 PAGE 26-1 Sf0^f\fF 40 



R3.8S .-.-SAVE FOR TAPING 

.8$ ;;G0 TYPE THIS DIGIT 

fOCNT ;; COUNT BY 1 

2S ;;eR IF MORE TO DO 

6$ ;:8R IF DONE 

R4 .-.INSURE LAST DIGIT ISN'T A BLANK 

2t ;;G0 DO THE LAST DIGIT 

(SP)».R5 ; .-RESTORE R5 

(SP)».R4 ;. -RESTORE R4 

(S'-')^ R5 '-RESTORE R5 

2(SP)!4(SP) ;;SET THE STACK FOR RETURNING 

(SP)*.(SP) 

.-.RETURN 

0 ;; STORAGE FOR ASCII DIGIT 

0 .-.-TERMINATOR FOR TYPE ROUTINE 

0 .-.-OCTAL DIGIT COUNTER 

0 .-.-ZERO FILL SWITCH 

0 ;.-Nl^R OF DIGITS TO TYPE 



rKKACCC n/AA POyER fAll MACRO MM! 3 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



06-APR-81 U:07 



C 4 
PAGE 27 



741 



S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



•THIS ROUTINE IS USED TO CHANGE 
•SIGNED DECIMAL (ASCII) NUMBER 
•NUMBER IS POSITIVE OR NEGATIVE 
•BEFORE THE FIRST DIGIT OF THE 
•REPLACED WITH SPACES. 
•CALL 



A 16-8IT BINARY NUMBER ^0 A S-DIGH 
AND TYPE IT. DEPENDING ON WHETHER IhF 

A SPACE OR A MINUS SIGN WILL BE TYPED 
NUMBER. LEADING ZEROS WILL ALWAYS Bf 











• * 


MOV 


NUM.-(SP) 










• • 


TYPDS 




005666 








STYPDS: 






005666 


010046 








MOV 


RO.-(SP) 


005670 


010146 








MOV 


RI.-(SP) 
R2.-(SP) 


005672 


010246 








MOV 


005674 


010346 








MOV 


R3.-(SP) 


005676 


010546 








MOV 


R5.-(SP) 


005700 


012746 


020200 






MOV 


#20200. -(SP) 


005 70A 


016605 


000020 






MOV 


20(SP).R5 


005710 


100004 








BPL 


1$ 


C05712 


005405 








NEG 


R5 


0057U 


112766 


000055 


000001 




M0V8 


#•-,1 (SP) 


005722 


005000 






IS: 


CLR 


RO 


00572A 


012703 


006102 






MOV 


#SDBLK.R3 
,(R3)* 


005730 


112723 


000040 






MOVB 


005 73A 


005002 






2$: 


CLR 


R2 


005736 


016001 


006072 






MOV 


$DTBL(R0).R1 


0057A2 


160105 






3$: 


SUB 


R1,R5 


005 7A A 


002402 








BLl 


4$ 


005746 


005202 








INC 


R2 


005750 


000774 








BR 


3$ 


005752 


060105 






4S: 


ADD 


R1,R5 


00575A 


005702 








TST 


R2 


005756 


001002 








BNE 


5$ 


005760 


105716 








TST8 


(SP> 


005762 


100407 








BMI 


7$ 


005764 


106316 






5$: 


AScB 


(SP) 


005766 


103003 








BCC 


6$ 


005770 


116663 


000001 


Mini 




MOVB 


1(SP).-1(R3) 
#'0,R2 
»' .R2 


005776 


052702 


000060 




6$: 


BIS 


006002 


052702 


000040 




7$: 


BIS 


006006 


110223 








MOVB 


R2.(R3)* 


C06010 


005720 








TST 


(RO)* 


006012 


020027 


000010 






CMP 


R0,>»10 


006016 


002746 








Bl T 


2$ 


006020 


003002 








BGT 


8$ 


006022 


010502 








MOV 


R5,R2 


006024 


000764 








BR 


6$ 


006026 


105726 






8$: 


TSTB 


(SP)* 


006030 


100003 








BPL 


9$ 


006032 


116663 




1 lint 




MOVB 


-1(SP),-2(R3) 


006040 


105013 






9$: 


CLRB 


(R3) 


006042 


012605 








MOV 


(SP)*.R5 


006044 


012603 








MOV 


(SP)*,R3 


006046 


U12602 








MOV 


(SP)*.R2 


006050 


012601 








MOV 


(SP)*.R1 


006052 


012600 








MOV 


(SP)*,RO 


006054 


104401 


006102 






TYPE 


.SDBLK 



PUT THE BINARY NUMBER ON THE STACK 
GO TO THE ROUTINE 

PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE t3INARY NU^BER POS. 

MAKE THE ASCII NUTCER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO"" 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOW TYPE THE NUMBER 



utA' 0 POWER fAlL 

CAw»=Pl BlNAftr TO DECIMAL AND 



TYPE ROUTINE 



06-APR-81 U:07 PAGE 



D A 
27-1 



006060 016666 00000? 000004 «0V 

006066 012616 MOV 

006070 C00002 RTl ^ 

006072 023420 fDT8L: 10000. 

006074 001750 1000. 

006076 000144 100. 

006100 000012 10. 

006102 IDBLK: .BLKW 



2(SP).4(SP) 
(SP)».(SP) 



.-ADJUST THE STACK 
.■RETURN TO USER 



SEOUFNCf 4? 



. » A : V /44 POWER FAIL 



E 4 
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SEOUEfUCE 4i 



S8TTL TYPE ROUTINE 



•ROUTINE TO TrPE ASCIZ MESSAGE. MESSAGE WUST TERMINATE Wl TH A 0 BvTE. 
•THE ROUTINE WILL INSERT A Nl/BER OF NULL CHARACTERS AFTER A LINE FEED. 
•N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: SFILLS CONTAINS THE NLfBER OF FILLER CHARACTERS REQUIRED. 

•N0TE3; SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE .MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCJZ STRING 
•OR 

• TYPE 
MESADR 

* 



006112 


105767 


000333 




STYPE: 


TST8 


$TPFLG 


;IS THERE A TERMINAL? 


006116 


1 00002 








BPL 


1$ 


;8R IF YES 


006120 


000000 








HALT 




;HALT HERE IF NO TERMINAL 


006122 


000430 








BR 


3$ ; 


.•LEAVE 


C06124 


010046 






IS: 


MOV 


RO.-(SP) 


;SAVE RO 


006126 


01 7600 


000002 






MOV 


a2(SP).R0 


;GET ADDRESS OF ASCIZ STRING 


006132 


122767 


000001 


1 72774 




CMP8 


*APTENV.$ENV 


.•RUNNING IN APT MODE 


006UO 


001011 








BNE 


62$ 


;NO.GO CHECK FOR APT CONSOLE 


006U2 


132767 


000100 


172765 




B1T8 


#APTSPOOL,$ENVM ; 


.•SPOOL MESSAGE TO APT 


006150 


001405 








BEO 


62$ 


.NO.GO CHECK FOR CONSOLE 


006152 


010067 


000004 






MOV 


R0.61$ 


.•SETUP MESSAGE ADDRESS FOR APT 


006156 


004767 


172774 






JSR 


PC.$ATY3 


.•SPOOL MESSAGE TO APT 


006162 


000000 






61$: 


.WORD 


0 


.•MESSAGE ADDRESS 


006164 


132767 


000040 


17-^743 


62$: 


BIT8 


*APTCSUP.$ENVM ; 


.-APT CONSOLE SUPPRESSED 


0061 72 


001003 








BNE 


60$ 


; YES. SKIP TYPE OUT 


006174 


112046 






2$: 


M0V8 


(RO)*.-(SP) 


.-PUSH CHARACTER TO BE TYPED ONTO STACK 
;8R IF IT ISN'T THE TERMINATOR 


006176 


001005 








BNE 


4$ 


006200 


005726 








TST 


(SP) + 


;IF TERMINATOR POP IT OFF THE STACK 


006202 


012600 






60$: 


MOV 


(SP)+.RO 


.•RESTORE RO 


006204 


062716 


000002 




3$: 


ADD 


f2ASP) 


.•ADJUST RETURN PC 


006210 


000002 








RTI 




.•RETURN 


006212 


122716 


00001 1 




4$: 


CMP8 


ttW.iSP) ; 


; BRANCH IF <HT> 


006216 


001430 








BEO 


8$ 




006220 


1227^6 


000200 






CMP8 


*CRLF.(SP) 


.•BRANCH IF NOT <CRLF> 


006224 


001006 








BNE 


5$ 




006226 


005726 








TST 


(SP)* 


;POP <CR><LF> EOUIV 


006230 
006232 


104401 








TYPE 




.-TYPE A CR AND LF 


006473 








SCRlF 




006234 


105067 


000212 






CLR8 


$CHARCNT 


.-CLEAR CHARACTER COUNT 


006240 


000755 








BR 


2$ 


;GET NEXT CHARACTER 


006242 


004767 


000056 




5$: 


JSR 


PC.$TYPEC 


;G0 TYPE THIS CHARACTER 


006246 


126726 


000216 




6$: 


CMP8 


$FILLC,(SP)+ 


;IS IT TIME FOR FILLER CHARS.? 


006252 


001350 








BNE 


2$ 


;IF NO GO GET NEXT CHAR. 


006254 


016746 


000206 






MOV 


$NULL.-{SP) 


;GET tt OF FILLER CHARS. NEEDED 
;AND THE NULL CHAR. 


006260 


105366 


000001 




7$: 


DEC8 


KSP) ; 


.•DOES A NULL NEED TO BE TYPED? 


006264 


002770 








BLT 


6$ 


;8R IF NO—GO POP THE NULL OFF OF SMCK 


006266 


004767 


000032 






JSR 


PC.$TYPEC 


;G0 TYPE A NULL 


006272 


105567 


0001 54 






DEC9 


$CHARCNT 


;DJ NOT COUNT AS A COUNT 


006276 


000770 








BR 


7$ 


.•LOOP 










.•HORIZONTAL TAB 


PROCESSOR 
*• .(SP) 




006300 


112716 


000040 




8$: 


M0V8 


.•REPLACE TAB WITH SPACE 



r K A 



ROUTINE 

0065CK 
006310 
006316 
006320 
006322 
006324 
006 52A 
006330 
006332 
006336 
006542 
006546 
0065S0 
006350 
006354 
006356 
006362 
006366 
006372 
006374 
006374 
006376 
006376 
006402 
006404 
006412 
006414 
006422 
006430 
006432 
006^% 
0064-.0 
0064^.6 
006450 
006452 
006454 
006456 
006460 
006462 
006464 
006466 
C06467 
006470 
006471 
006472 
006473 
006474 



POWER FAIL 
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004767 


000014 






1 CD 


or CTvDEr 


152767 


[AjOOOf 


AAA1 Ty 

0001 3*1 




D 1 TQ 

oJ la 


m7 CruADTluT 


001 572 










7» 


0057^6 








T C T 


( CD) * 
I or y ♦ 


AAA 7 "5/ 

000 






STVPEC: 


DD 
on 


5C 


1 AC 777 


AAA1 5^ 

0001 <:6 






T C TP 




1 AAAT5 

1000^^ 










1 nt 


01 f ' '•6 


AAA1 55 
000 1 






MAV/ 

nuv 




04^rl6 


Iff 600 






OIL 


M \ f f OUW # V Or / 


1^2'16 


AAAA51 
OOOOCJ 






rMDQ 


w»AUr r , I or/ 


00101 c 






101$: 


DIMc 


1 Uc> 




AAA1 A5 

0001 Oc 






1 J Its 


■« 1 ^o 


100375 








BPL 


101$ 


1 1 r rl6 


A AAA 7*. 

0000^^6 






nuvo 


■> 1 NO> VOr / 


KJHCf \ O 


1 77AAn 

1 f fOV\J 








99 \ t f Ovv # \ Or / 


1 ^^r^l 6 


AAAn51 

OUUOc 1 








»#AUIil# I Or/ 


AA1 

UOl JOO 






1 n5t ■ 


CMC 


1 V/ 1 • 


U05f CO 






1 At • 


TCT 




1 1^^777 
1 L/ J f r r 


OOUOOU 






TCTP 
1 O 1 0 


09 1 r o 


1 nr>77^ 








RDl 


in* 


1 0/^57 


AAAAAO 

OOOOOe 


nni"»n5i 

UUUOc 1 






jry ,ff9AUni 


UU 1 HcU 










tTVPF Y 

9 1 ir C A 


1 1 t.t^77 








nuvo 


5fCP) ;atTPP 

C \ Or / , OJp 1 rO 


1 £C r OO 


UUUU ' 5 








itrp 5fcp) 










BNE 


1C 
1 9 




nnnni a 
UUUU 1 *# 






CLR8 




uuu*»uo 








BR 


* 1 ' rC A 


1 D57AA 


AAAA1 5 

OOUO 1 c 


UUOUUr 


1$: 


CMP8 


«l F 5f CP) 
wL' »c I Or/ 


rvn 1 y n 0 
'JU 1 sUc 








BEO 


CTVPFV 


1 n^557 








INC8 


IOC ) -» 

V r L / 


uuuuuu 






SCHARCNT: .WORD 


A 

V 








STYPEX: 


RTS 


Df 

r I. 


1 77^An 

1 t r jOV 






$TKS; 


.WORD 


1 77S*»n 


1 77^*.5 






$TK8: 


.WORD 










$TPS; 


.WORD 


\ f f 50*» 


1 i' f jOO 






$TP8; 


.WORD 


1 y r yOO 


nnn 

vvv 






$NULL : 


.BYTE 


0 


002 






SFJLLS: 


.BYTE 


2 


012 






tFlLLC: 


• BYTE 


12 


000 






STPFLG: 


.BYTE 


0 


077 






SQUES: 


.ASCII 




015 






tCRLF: 


.ASCII 


<i5> 


012 


000 




$LF: 


.ASCIZ 


<12> 



SEOUF' 



TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 
GET NEXT CHARACTER 

CHAR IN KY8D BUFFER? 
BR IF NOT 
GET CHAR 

STRIP EXTRANEOUS PITS 
WAS CHAR XOFF 
BR IF NOT 

WAIT FOR CHAR 

GET CHAR 
STRIP IT 
WAS IT XON? 
BR IF NOT 

;FIX STACK 

;WAIT UNTIL PRINTER IS READY 

;IS CHARACTER A RANDOM XON? 
; BRANCH IF YES 
;LOAD CHAR TO BE TYPED INTO DATA REG. 
:IS CHARACTER A CARRIAGE RETURN? 
iBRANCH IF NO 

; YES— CLEAR CHARACTER COUNT 
:EXIT 

;IS CHARACTER A LINE FEED? 

;BRANCH IF YES 

; COUNT THE CHARACTER 

; CHARACTER COUNT STORAGE 

;TTY KD8 STATUS ;MJD001 

;TTY K8D BUFFER ;MJD001 

;TTY PRINTER STATUS REG. ADDRESS 

;TTY PRINTER BUFFER REG. ADDRESS 

;CONTAINS NULL CHARACTER FOR FILLS 

.•CONTAINS # OF FILLER CHARACTERS REQUIRED 

jINSERT FILL CHARS. AFTER A "LINE FEED" 

;"TERMINAL AVAILABLE" FLAG (B1T<07^ 0 YES) 

;QUESTION MARK 

;CARRAIGE RETURN 

;LINEFEED 



MjDOOl 
MjUOOl 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJ0001 
MJDOOl 
MJDOOl 
: MJDOOl 
; MJDOOl 
; MJDOOl 

; MJDOOl 
;RAN001 
;RAN001 



TRAP DECODER 
74S 



006476 
006500 
006504 
006506 
006510 
006512 
006516 

006520 
006522 
006530 



006532 
006534 
006536 
006540 
006542 
006544 



0100A6 
016600 
005 7A0 
111000 
006300 
016000 
000200 

011646 
016666 
000002 



006520 
006112 
005464 
005440 
005500 
005666 
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S8TTL TRAP DECODER 



6 4 
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000002 



006532 



000004 000002 



STRAP: 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP"* INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRFSS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 

SAVE RO 

GET TRAP ADDRESS 
BACKUP Br 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 
GETPRI" MACRO 



MOV 
MOV 
TST 
M0V8 
ASL 
MOV 
RTS 
IS USE 
MOV 
MOV 
RTI 
TRAP 
TABLE 
♦BY THE "TRAP" 
ROUTINE 



;;THis 

$TRAP2 



S8TTL 
♦THIS 



RO,-(SP) 
2(SP).R0 
-(RO) 
(RO) .RO 
RO 

$TRPAD(RO) .RO 
RO 

TO HANDLE THE 
(SP).-(SP) 
4(SP).2(SP) 



MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 



TABLE 

CONTAINS THE STARTING ADDRESSES OF 
INSTRUCTION. 



$TRPAD: 



.WORD 

tTYPE 

STYPOC 

STYPOS 

STYPON 

STYPDS 



$TRAP2 

;CALL=TYPE 
;CALL=TYPOC 
;CALL=TYPOS 
;CALL=TYPON 
;CALL=TYPDS 



TRAP+1 (104401) 
TRAP*2( 104402) 
TRAP+3( 104403) 
TRAP*4( 104404) 
TRAP+5( 104405) 



THE ROUTINES CALLED 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAl NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



CKKACCO 11/44 POWER FAIL 
ERROR PRINT ROUH^ 



747 








748 




104000 




749 


006546 


000000 






006550 


010067 


000026 


''51 


006554 


010167 


/\ AAA / 

000024 


752 


006560 


/\ 1 A "^Z ^ 

010267 


A AAA 

000022 


753 


006564 


A1 A7Z 7 

010367 


AAAATA 

000020 


754 


A/\Z f 7A 

006570 


A4 A/ Z 7 

010467 


AAAA1 Z 

000016 


755 


r\f\d i 

006574 


A ^ AC Z 7 

010567 


AAAA1 / 

00001 4 


/56 


f\f\d d rt^. 

006600 


AAA / AZ 

000406 




757 


006602 


AAA AAA 

000000 




758 


006604 


AAAAAA 

000000 




759 


006606 


AAAAAA 

000000 




760 


/\AZ Z 4 A 

006610 


AAAAAA 

000000 




761 


/^AZ ^ ^ ^ 

006612 


AAAAAA 

000000 




762 


006614 


000000 




763 










006616 


All Z. A1 

0 1160 1 








16^:701 


AAAAAO 

UUUUUi: 


766 


C06624 


A1 r'll Z "7 

010167 


1 7771 A 

' ///16 


767 


rtrtZ Z 7A 

006630 


1 A/ / A 1 

104401 


AAA A 7A 

006636 




f\f\d Z 7 / 

006634 


AAA/ 1 1 

0004 1 1 






A AZ i.f\ 

006660 






768 


006660 


AAC 

005/21 




769 








770 


00666^: 


A1 O^AO 


AA7A7/ 

UU/634 


77 1 


006666 


A1 17A1 

012/03 


AA71 1 A 

00/1 lU 


77^ 




003/1 1 




775 


AA^^ 7/ 

UOoo 74 


AA1 / AC 

UUl 4Uj 




774 


AAZ.^ 7Z. 

OUoo 7 6 


/"■AC707 




775 


AA^ 7AA 

006700 


U21 1 <:<: 




77Z 

776 


r\r\d 7A "5 

006702 


AA1 T7C 

001 5/3 




777 








778 


006704 


004753 




^79 


006706 


AAA7Z./ 

000764 




7DA 

780 








781 


AAZ. 71 A 

006710 








AAZ 7i a 

006710 


1 Ay y Ai 
104401 


AAA 71 A 

006/16 




AAZ. 71 / 

006714 


AAAy A1 
000401 






006720 






782 


006720 


016746 


172174 




AA^ 7oy 


1 Ay y AT 
1 04403 






AA^ 7'5^ 

006726 


AAA 
006 






006727 


AAA 

000 




785 


AAA 

006 OO 


i Ay y A1 
104401 


AAA77A 

006/36 




AAA 71/ 

006/ j4 


AAA/ AO 

0004Uc 






AAA 7/ ^ 

006742 








UUD/hc 


U 1 o/ •♦o 


1 / /ouu 




006746 


104402 




785 


006750 


104401 


003740 


786 








787 


006754 


011601 




788 


006756 


162701 


000002 


789 


006762 


005721 
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ERROR PRINT 

0 

RO,SAVRO 
R1 ,SAVR1 
R2.SAVR2 
R3.SA\/R3 
R4,SAVR4 
R5.SAVR5 

m 



ROUTINE 
.•SAVE 



RO THRU R5 



(SP),R1 ;R1 CONTAINS ADDRESS FLL0WIN6 ERRPC ADDRESS 
#2.R1 

R1. ERRPC ;GET ADDRESS OF ERROR MESSAGE : ERRPC 

,65$ ;;TYPE ASCIZ STRING 

64$ .-.-GET OVER THE ASCIZ 
<CRLF><CRLF>/TESTNO ERRPC/ 

(R1)+ ;Rl' POINTS TO NEXT ARGUEMENT 

/»PRTA8L.R2 ."ADDRESS OF START OF PRINT TABLE LIST 

#PRTITL,R3 .-ADDRESS OF STERT OF TITLES 

(Rl) ;END OF ARGUEMENTS? 

DAT ; YES. GO PRINT DATA 

(R3)* .-INDEX THRU TITLES 

(R1).{R2)* .-SEARCH PRINT TABLE LIST FOR TITLE 

2$ ;N0; CHECK NEXT LOCATION IN LIST 

PC.a-(R3) .-FOUND IT; GO PRINT TITLE CODE ERROR ROUTINE 
3$ 



.65$ 
64$ 

<CRLF> 

$TESTN,-(SP) 

6 

0 

.67$ 
66$ 

/ / 

ERRPC. -(SP) 

,$ENULL 

(SP),R1 

*2.R1 

(RD* 



;;TyPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



SAVE $TESTN FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 6 DIGITCS) 
SUPPRESS LEADING ZEROS 
TYPE ASCIZ STRING 
GtT OVER THE ASCIZ 



.-.-SAVE ERRPC FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



;R1 CONTAINS ADDRESS FOLLOWING ERRQRPC ADDRESS 
;R1 P0IN;S to NEXT ARGUEMENT 



CKKACCO 11/44 POWER FAIL "nACRQ Min 5 06-APR-81 

ERROR PRINT ROUTINE 



790 


006^64 


Ai I^A"! 

01270^ 


AA7^ 1/ 




nuv 


791 


006770 


012703 


0074 70 




MOV 


792 


006774 


005711 






TST 


793 


006776 


001421 






BEQ 




f\f\-y(\(\i\ 

00/^000 






■jt • 


TCT 

1 O 1 


'95 


007002 


A'^ i i 

0211^^ 








796 


007004 


AA1 T7C 

00 1 37d 






OluC 
OlMt 


797 


007006 
007012 

007020 


104401 
000402 


007014 


;;69$: 

X.BC • 


TYPE 
BR 

.ASCIZ 




AA7A'5A 


AA/ 75 7 






1 CD 
J on 






1 A/ / AI 

1 0*»*iU 1 


AA17Z.A 




1 TrC 


800 


0070^6 

AA7AT^ 

007040 


i A/ / A1 
AAA/ A^ 


AA7A7/ 


;;71$: 
70$: 


T VDC 

1 Trt 

DD 
OK 

.ASCIZ 


801 


007040 


000750 






BR 


















AA^751 




r I'M. 


> O 1 


OA/ 




A1 A1 1 ^ 






MAW 


OAC 


AA7A/ 

00 ^046 

AA7AC^ 

00705O 


1 A/ / A 1 
AAA/ A1 


AA7ACZ. 




T VDC 
DM 


BA/. 
OUO 












QA7 

o\}( 


AA7A</L 

U07UjO 




1 77«C5A 




nuv 


ADA 






\ f f J I W 




MOV 


809 


007066 


016702 


177514 




MOV 


810 


007072 


016703 


177512 




MOV 


811 


007076 


016704 


177510 




MOV 


8V 


007102 


016705 


177506 




MOV 


813 












814 


007106 


000002 




RTI 
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SEQUENCE 4 7 



#PRTABL.R2 
#PRDATA,R3 

(R1) 

FIN 

(R3)* 

(R1),(R2)» 
2$ 

.69$ 
68$ 

/ / 



ADDRESS OF START OF PRINT TABLE LIST 
ADDRESS OF STERT OF PRINT DATA 
END OF ARCUEMENTS? 
YES 

INDEX THRU DATA PRINTS 

SEARCH PRINT TABLE LIST FOR TITLE 

NO; CHECK NEXT LOCATION IN LIST 

.-TYPE ASCIZ STRING 

.-GET OVER THE ASCIZ 



PC.a-(R3) 
.$ENULL 
,71$ 
70$ 

/ / 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



3$ 

(RD* 
Rl.fSP) 
.65$ 
64$ 

<CRLF> 



R1 NOW CONTAINS RETURN ADDRESS 
SETUP RETURN ADDRESS IN STACK 
.•TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 



SAVRO.RO 
SAVRl.Rl 
SAVR2.R2 
SAVR3.R3 
SAVR4.R4 
SAVR5,R5 



;RESTORE REGISTERS 



.•RETURN 



CKKACCO POWER FAIL 



SUBROUTINES TO PRINT DATA HEADERS 



J 4 

liACR0M1113 06-APR-81 U:07 PAGE 31 



S£ uuf *Ji- • 







007110 




fi17 0071^ 




0071 ^ 


1 Ot^OI 


007U0 


000407 


0071^0 




818 007160 


000207 

WWCw' 


81 Q 00716? 








007166 


000407 


007506 




820 007206 

OC W WW ( c wv 


000207 

WWWt w • 


8?1 007210 

Wh 1 WW ' C ■ W 




007P10 

WW r C I W 


104401 


007214 


000407 


007234 

WW » c -/^ 




822 C07234 

C Ww» C -/^ 


000207 

WWWfc V ' 


823 007236 

Ub ^ WW ' C w 




007236 

WW ' C 


104401 


007242 


000407 


007262 

WW' bWC 




824 007262 

WW' c wc 


000207 

W WWfc W ' 


825 007264 

WC ^ WW ' c. w » 




007264 

WW ' c. w~ 


104401 


007270 


000407 


007310 

WV » -/ 1 w 




826 007310 

WCW WW ' ^ IW 


000207 

WWW c w • 


827 007312 




007312 

WW r ^ i c 


104401 


007316 


000407 


007336 

WW » J J\J 




828 007336 


000207 

WWWb V ' 


829 007340 

^ WW' ^~w 




007340 

WW' J~W 


104401 


00734A 


000407 


007364 

WW 1 




870 007364 

(J JW WW' J\J~ 


000207 

WWWfc W ' 


831 007366 

W -J ' WW' 




007366 

WW' vww 


104401 


007372 


000407 


007412 

WW * ^ ' fc 




832 007412 

W WW ~ 1 b 


000207 

WW w t w » 


853 007414 




007A14 


104401 


0074?0 


000407 


007A40 




834 007440 


000207 


855 00744? 





PRTITL: 
1S: 



;;65$: 
64S: 



2S: 



;;67$: 
66$: 

3$: 



;;69$: 
68S: 

4S: 



;;71$: 
70$: 

5$: 



;;73$: 
72$: 

6$: 



;;75$: 
74$: 

7$: 



;;77$: 
76$: 

10$: 



.••79$: 
7&$: 

11$: 



;;81$: 
80$: 

12$: 



.S8TTL 
.WORD 

TYPE 
BR 

.ASCIZ 

RTS PC 

TYPE 
BR 

.ASCIZ 

RTS PC 

TYPE 
BR 

•ASCIZ 

RTS PC 

TYPE 
BR 

.ASCJZ 

RTS PC 

TYPE 
BR 

.ASCJZ 

RTS PC 

TYPE 
BR 

.ASCIZ 

RTS PC 

TYPE 
BR 

.ASCIZ 

RTS PC 

TYPE 
BR 

.ASCIZ 

RTS PC 

TYPE 
BR 

.ASCJZ 
RTS PC 



SUBROUTINES TO PRINT DATA HEADERS 
1$.2$.3$.4$.5$.6$,7$J0$J1$.12$ 

.65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

/ EXPDAT / 



.67$ ;;TyPr ASCIZ STRING 

66$ ;;GET OVER THE ASCJZ 

/ RECDAT / 



.69$ ;;TyPE ASCJZ STRING 

68$ ;;GET OVER THE ASCIZ 

/ EXP. ADD / 



,71$ 
70$ 

/ REC.ADD 



.73$ 
72$ 

/ EXP.SP1 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.-.•TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



,75$ ;;TYPE ASCIZ STRING 

74$ ;;GET OVER THE ASCIZ 

/ REC.SP1 / 



.77$ ;;TYPE ASCJZ STRING 

76$ ;;GET OVER THE ASCIZ 

/ EXP.PSW / 



,79$ ;;TyPE ASCIZ STRING 

78$ ;;GET OVER THE ASCIZ 

/ REC.PSW / 



,81$ ;;TYPE ASCIZ STRING 

80$ ;;GET OVER THE ASCIZ 

/ VIR.ADD / 



K A 
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SUBROUTINES TO PRINT DATA HEAi^ERS 

Q07U2 104401 007450 TYPE .83$ ;;TrPE AbClZ STRING 

007446 000407 BR 82S :;GET OVER .'HE ASCIZ 

;;83$: .ASCIZ / PAR.OFF / 
007466 82$: 

8% 007466 000P07 RTS PC 



CKKACCO 11/44 POWER FAIL 
SUBROUTINES TQ PRINT DATA 



P1ACR0 MTU 3 06-APR-81 



837 

838 007470 

839 007514 
007514 
007520 

840 007522 

841 007524 
007524 
007530 

842 007532 

843 007534 
007534 
007540 

844 007542 

845 007544 
007544 
007550 

846 007552 

847 007554 
C07554 
007560 

848 007562 

849 007564 
007564 
007570 

850 007572 
007574 
007574 
007600 

852 007602 

853 007604 
007604 
007610 

854 007612 

855 007614 
007614 
007620 

856 007622 

857 007624 
007624 
007630 

858 007632 



851 



007514 

016746 
104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 

016746 

104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 

016746 
104402 
000207 



007524 
000140 

0001 32 

000124 

000116 

000110 

000102 

000074 

000066 

000060 

000052 



007534 



PRDATA: 
IS: 



2$: 



3$: 



4S: 



5S: 



6$: 



7$: 



10$; 



11$: 



12$: 



.S8TTL 
.WORD 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 

MOV 
TYPOC 
RTS PC 
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SUBROUTINES TO PRINT DATA 

1$, 2$, 3$, 4$. 5$. 6$, 7$. 10$. 11$. 12$ 

EXPDAT.-(SP) ;;SAVE EXPDAT FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 



RECDAT.-(SP) ;;SAVE RECDAT FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



EXP. ADD. -(SP) ;;SAVE EXP. ADD FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 



REC.ADD,-(Sr .-.-SAVE REC.ADD FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



tXP.SPl,-(SP) ;;SAVE EXP.SPl FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



RCC.SPl.-(SP) .-.-SAVE REC.SP1 FOR TYPEOUT 

;;60 TYPE— OCTAL ASCII (ALL DIGITS) 



EXP.PSW.-(SP) .-.-SAVE EXP.PSW FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



REC.PSW,-(SP) ;;SAVE REC.PSW FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 



VIR. ADD. -(SP) ;;SAVE VIR.ADD FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI HALL DIGITS) 



PAR. OFF. -(SP) 



;;SAVE PAR. OFF FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 



riCKAfCO POWER FAIL 
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33 



SEQUENCE 



SI 



859 

860 007654 

861 007646 

862 007660 

863 007662 

864 007664 

865 007666 

866 007670 
007672 
007674 

869 007676 

870 007700 

871 007702 

872 007704 

873 007737 

874 007774 

875 010037 

876 010107 

877 010151 

878 01 0202 

879 010254 

880 010311 

881 010371 

882 010434 
883 

884 010502 
885 



867 
868 



007660 
007672 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
015 
015 
015 
015 
015 
055 
122 
115 
115 
116 
101 

000000 
000001 



C07662 
007674 



012 
012 
012 
012 
012 
113 
101 
101 
101 
117 
125 



007664 
007676 



103 
103 
102 
120 
120 
040 
116 
131 
116 
040 
124 



PRTA8L : 

EXPDAT: 

RECDAT: 

EXP. ADD 

REG. ADD 

EXP.SPl 

REC.SPl 

EXP.PSU 

REC.PSW 

VIR.ADD 

PAR. OFF 

PNAME: 

TITLE: 

BOOT: 

UPF : 

DOWN: 

SUPMSG: 



USRPFL; 
HDWPFL: 



END: 
.END 



.S8TTL 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.EVEN 
0 



TABLES AND ASCII MESSAGES 

EXPDAT. RECDAT. EXP. ADD. REC. ADD. EXP.SPl 

REC.SPl. EXP. PSW. REC.PSW. VIR.ADD. PAR. OFF 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

<15><12>*CKKACC0 11/44 POWER FAIL* 
<15><12>+CKKACC0 11/44 POWER FAIL+<15><12> 
<15><12>t-BOOT ENABLE SWITCH MUST BE OFFf<15><12> 
<15><12>+POWER UP BEFORE POWER DOWN C0MPLETE*<15><12> 
<15><12>+P0WER DOWN BEFORE UP C0MPLETE+<1 5><12> 
?-K WORDS OF MEMORY EXIST?<CRLF> 
7RAND0M CHARACTER(S) (INCLUDING FORM FEED) ? 
?MAY PRINT ON POWER CYCLING. ?<CRLF> 

7MANUALLY INTERRUPT THE POWER AFTER EACH TEST #?<CRLf> 

?N0 MANUAL INTERVENTION NECESSARY - ? 

?AUT0 POWER FAIL TEST HARDWARE EXISTS?<CRLF> 



^KKACCO POWER F 

SVMBa TABLE 

ABASE = 000000 
ACDWI = 000000 
ACDW2 = 000000 
ACPl)OP= 000000 
ADDWO - 000000 
ADDW1 = 000000 
AD0W10= 000000 
AD0W11= 000000 
A0DW12= 000000 
A0DW13= 000000 
AD0W1A= 000000 
A0DW15= 000000 
ADDW2 = 000000 
ADDU3 = 000000 
ADDWA = 000000 
ADDW5 = 000000 
ADDW6 = 000000 
ADDW7 = 000000 
A00U8 = 000000 
ADDW9 = 000000 
ADEVCT= 000000 
ADEVM = 000000 
AENV = 000000 
AENVM = 000000 
AFATAL= 000000 
AMADR1= 000000 
AMADR2= 000000 
A«ADR3= 000000 
AMADR4= 000000 
AMAMS1= 000000 
AMAMS2= 000000 
AMAWS3= 000000 
A^W1S4= 000000 
AMSGAD= 000000 
AMSGLG= 000000 
AMSGTy= 000000 
AMTyP1= 000000 
AMTYP2= 000000 
AMTYP3= 000000 
AMTYPAs 000000 
APASS = 000000 
APRIOR= 000000 
APTCSU= OOOOAO 
APTENV= 000001 
APT SI 2= 000200 
APTSPO= 000100 
ASWREG= 000000 
ATESTN= 000000 
AUNIT = 000000 
AUSWR - 000000 
AVECT1= 000000 
Ay/ECr2= C -0000 
BEGIN 00U2A 
BITO = 000001 
BITOO = 000001 
BITOT = 000002 
6IT02 = 000004 
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BIT03 - 000010 
bITOA - 000020 
BIT05 = 000040 
BIT06 = 000100 
BIT07 = 000200 
BIT08 = 000400 
BIT09 = 001000 
BIT1 = 000002 
BITIO = 002000 
BIT11 - 004000 
BIT12 = 010000 
BIT13 - 020000 
BIT14 = 040000 
bIT15 = 100000 
BIT 2 = 000004 
BIT 3 = 000010 
BIT4 = 000020 
BITS = 000040 
81 T6 = 000100 
BIT 7 - 000200 
BITS = 000400 
BIT9 - 001000 
BOOT 007774 
BPTVEC= 000014 
CACHVE= 000114 
CHECK 004064 
CONTRL 177746 
CPUERR= 177766 
CR - 000015 
CRLF ^ 000200 
DAT 006710 
DATA 004566 
DDISP = 177570 
DISPLA= 177570 
DISPRE 000174 
DOWN 010107 
DSWR = 177570 
DVEC 004554 
EMTVEC= 000030 
END 010502 
ERRAD 004546 
ERROR = 104000 
ERRPC 006546 
ERRVEC= 000004 
EXPDAT 007660 
EXP. AD 007664 
EXP. PS 007674 
EXP.SP 007670 
fIN 007042 
FLAG 004562 
HDWPFL 010371 
HIADRS= 177742 
HITMIS- 177752 
HT = 000011 
ILLDWN 004534 
ILLUP 004522 
I0TVEC= 000020 
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KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPAR5= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
ICDPDR0= 172320 
KDPDR1= 172322 
KDPDR2= 172324 
KDPDR3= 172326 
KDPDR4= 172330 
KDPDR5= 172332 
KDPDR6= 172334 
KDPDR7= 172336 
KERSTK= 001100 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KJPAR6= 172354 
KIPAR7= 172356 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
KSP =X000006 
LF = 000012 
LIMIT 004564 
LKS = 177546 
LKVEC = 000100 
LOAD 003760 
LOADRS= 177740 
LRTI 001422 
MAINT = 177750 
MAP 004570 
MAPHO = 170202 
MAPHOO= 170202 
MAPH01= 170206 
MAPH02= 170212 
MAPH03= 170216 
MAPH04= 170222 
MAPH05= 170226 
MAPH06= 170232 
MAPH07= 170236 
MAPH1 = 170206 
MAPH10= 170242 
MAPH11= 170246 
MAPH12- 170252 
MAPHl 3 1 70256 



N 4 
33-1 



MAPHl 4= 170262 
MAPHl 5= 170266 
MAPHl 6= 170272 
MAPHl 7= 170276 
MAPH2 = 170212 
MAPH20= 170302 
MAPH2U 170306 
MAPH22= 170312 
MAPH23= 170316 
MAPH24= 170320 
MAPH25= 170326 
MAPH26= 170332 
MAPH27= 170336 
MAPH3 = 170216 
MAPH30= 170342 
MAPH31= 170346 
MAPH32= 170352 
MAPH33= 170356 
MAPH34= 170362 
MAPH35= 170366 
MAPH36= 170372 
MAPH37= 170376 
MAPH4 = 170222 
MAPH5 = 170226 
MAPH6 = 170232 
MAPH7 = 170236 
MAPLO = 170?no 
MAPLOO= 170200 
MAPL01= 170204 
MAPL02= 170210 
MAPL03= 170214 
MAPL04= 170220 
MAPL05= 170224 
MAPl06= 170230 
MAPL07= 170234 
MAPL1 = 170204 
MAPL10= 170240 
MAPL11= 170244 
MAPL12= 170250 
MAPI 13= 170254 
MAPI 14= 170260 
MAPL15= 170264 
MAPL16= 170270 
MAPL17= 170274 
MAPL2 = 170210 
MAPL20= 170300 
MAPL21= 170304 
MAPL22= 170310 
MAPL23= 170314 
MAPL24= 170320 
MAPL25= 170324 
MAPL26= 170330 
MAPL27= 170334 
MAPL3 - 170214 
MAPL30= 170340 
riAPL31= 170344 
MAPL32- 170350 
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MAPl33= 170354 
MAPL34= 170360 
MAPL35= 170364 
MAPl36= 170370 
MAPL37= 170374 
MAPL4 = 170220 
MAPL5 = 170224 
MAPL6 = 170230 
MAPL7 = 170234 
MEMERR= 177744 
MMERR 004666 
MMRO = 177572 
MMRl = 177574 
MMR2 = 177576 
MMft3 = 172516 
MMVEC - 000250 
PARERR 004260 
PARFLG 004262 
PAR. OF 007702 
PFAIL 001416 
PI RQ = M7772 
PIRQVE= 000240 
PNAME 007704 
POWDUN 004360 
POWUP 004454 
PRDATA 007470 
PRETST 002020 
PRTA8L 007634 
PRTITL 007110 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PR5 - 000240 
PR6 = 000300 
PR7 - 000340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
RECDAT 007662 
RE CAD 007666 
RE CPS 007676 
RECSP 007672 
RESVEC= 000010 
RIO =X00OOOO 
R1 1 =X000001 
R12 =X000002 
R13 =X000003 
R14 =X000004 
R15 -X000005 
R6 =X000006 
R7 =2000007 
SAVRO 006602 
SAVRl 006604 
SAVR2 006606 
SAVR3 006610 



«nAf Cv. ' " /i.*. f-^WfCi f AI. 
SYMBOL 'ABLE 
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55-? 



SEajFN''f 



SAVR4 
SA^RS 

SCOP€ = 
S[)PARO= 
SDPAR1= 
SDPAR?-. 
SC>PAft5= 
5DPAR<i= 
SDPAR5= 
GDrAft6= 

SOPO»0= 

SOPOR 1 = 

SDP0R2= 

SOPOR 3= 

SOPOR<i= 

SOPORS = 

S0P0R6= 

SOPOR 7= 

SETPAR 

SIPARO= 

SIPARU 

SIPAR2= 

SIPAR3= 

SIPARA= 

SIPAR5= 

SIPAR6= 

SIPAR7- 

SIPDRO= 

5IP0R1= 

SIP0R2= 

SIP0R3= 

SIPORA= 

SIP0R5= 

SIP0R6= 

SIP0R7= 

SIZEHI= 

simo^ 

SRO = 
SRI 

SR2 = 
SR3 = 
SSP = 
STACK = 
STACK1= 
STlCLm= 

A8S • 



006612 
0066U 
004560 
000004 
172260 
1 72?t2 
172264 
172266 
1 72270 
^ 72272 
1 7227t, 
1 72276 
1 72220 
1 72222 
1 7222^. 
1 7222b 
172230 
1 72212 
172234 
172236 
004672 
1 72240 
172242 
}722i^i* 
1 72246 
1 72250 
1 722^2 
1 72254 
172256 
172200 
1 72202 
172204 
172206 
172210 
172212 
172214 
172216 
^777b2 
177760 
^ 77572 
177574 
177576 
172516 
X000006 
001100 
000500 
1 7777i, 



010504 
OOOOOO 
ERRORS DEiECTED: 



000 
001 



SUPnSG 010151 
SJPSTKr 000700 
SyR = 177570 
SyREG 000176 
syo = 000001 
SWOO = 000001 
SyOI = 000002 

sy02 = 000004 

Sy03 = 000010 

SW04 = 000020 

sy05 = 000040 

SU06 = 000100 

SW07 = 000200 

SW08 = 000400 

SW09 = 001000 

SWI = 000002 

SUlO = 002000 

sun = 004000 

SWI 2 - 010000 

SWI 3 = 020000 

SU14 = 040000 

SWI 5 = 100000 

SU2 - 000004 

SW3 - 000010 

SW4 - 000020 

SW5 = 000040 

sy6 = 000100 

SW7 000200 
SU8 = 000400 
SW9 = 001000 
SVSTID= 177764 
T8JTVE= 000014 
TITL 006616 
TITLE 007737 
TKVEC = 0COO60 
TPVEC = 000064 
TRAPVE 000034 
TRTVEC= 000014 
TST1 002036 
TST10 003420 
TSTII 003552 
fST2 002254 
TST3 002504 
TST4 002764 
TST5 003070 
TST6 003200 
TST7 003320 



TYPOS = 


104405 


$ATV5 


coil 56 


t^'TYPI 


001145 


TYPE = 


104401 


JATV4 


001166 


INOWAP 


005126 


TyPOC = 


104402 


fCHARC 


006452 


$NULL 


006466 


TYPON = 


104404 


SCORE 


005326 


INWTST= 


000001 


TYPOS = 


104403 


SCPUOP 


001142 


SOCNT 


005662 


UDPARO= 


1 77660 


SCRLF 


006473 


SOMOOE 


005664 


UDPAR1= 


177662 


SCROUT 


005356 


$PASS 


001122 


UDPAR2= 


177664 


$D8LK 


006102 


tPASTM 


001106 


UDPAR3= 


177666 


SOEVCT 


001124 


SOUES 


006472 


UDPAR4= 


1 77670 


SDOAGN 


003734 


SRTNAD 


003736 


UDPAR5= 


1 77672 


SDTBL 


006072 


$SAVPC= 


000204 


UDPAR6= 


177674 


SENDAD 


003724 


$SETUP= 


000024 


UDPAR7= 


1 77676 


SENDCT 


003672 


SSJZE 


004724 


UDPDRO= 


1 77620 


SENDMG 


003743 


SSJZEX 


005362 


UDPDR1= 


1 77622 


SENULL 


003740 


SSTOP 


005104 


UDPDR2= 


1 77624 


$ENV 


001134 


SSTUP = 


^77777 


UDPDR3= 


1 77626 


SENVM 


001135 


SSyPC = 


000204 


UDPDR4= 


1 77630 


$E0P 


003646 


ssyR = 


040000 


UDPDR5= 


1 77632 


SEOPCT 


003664 


SSyREG 


001136 


•JDPDR6= 


177634 


SERROR 


006550 


ITESTN 


001120 


UDPDR7= 


1 77636 


SETABL 


001134 


STK8 


006460 


UIPAR0= 


1 77640 


SETEND 


001150 


$TKS 


006456 


U1PAR1= 


177642 


SFATAL 


001116 


ITN 


000012 


UIPAR2= 


1 77644 


$FFLG 


001414 


$TP8 


006464 


U1PAR3= 


1 77646 


SFILLC 


006470 


$TPFLG 


006471 


U]PAR4= 


177650 


$FILLS 


006467 


$TPS 


006462 


UIPAR5= 


1 77652 


$GET42 


003714 


STRAP 


006476 


UIPAR6= 


1 77654 


$HD = 


OOOOOO 


STRAP2 


006520 


UIPAR7= 


1 77656 


$HI8TS 


001100 


STRP = 


000006 


UIPDR0= 


1 77600 


SKTNEX 


005320 


STRPAD 


006532 


UIPDR1= 


1 77602 


SKTOUT 


005256 


STSTM 


001104 


UIPDR2= 


1 77604 


$KT11 


005010 


STYPOS 


005666 


UIPDR3= 


1 77606 


$LF 


006474 


STYPE 


006112 


UJPDR4= 


177610 


SLFLG 


001413 


STYPEC 


006324 


UIPDR5= 


1 7761 2 


SLSTAD 


005434 


STYPEX 


006454 


UIPDR6= 


177614 


$LST8K 


005436 


STYPOC 


005464 


UIPDR7= 


177616 


SMADRI 


001146 


STYPON 


005500 


UPF 


010037 


JMAIL 


001114 


STYPOS 


005440 


USESTK= 


000600 


SMAMS! 


001 144 


SUNIT 


001126 


USP = 


1000006 


$MAP 


005102 


suNirn 


001110 


USRPFL 


010311 


SMAPRG 


005106 


SUSUR 


001140 


UVEC 


004550 


SMBADR 


001102 


SXOFF = 


000023 


VIR.AD 


007700 


SMFLG 


001412 


SXON = 


000021 


xrz 


001420 


$«M0UT 


005300 


SSGET4= 


OOOOOO 


SAPTHD 


001100 


SnSGAO 


001130 


SOFILL 


005663 


SATYC 


001 1 74 


SMSGLG 


001132 


.sx = 


001100 


SATYl 


001150 


SMSGTY 


001114 
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CREATED Bv 


MACRO DN 6- 


■APR-81 




CROSS REFERENCE 








VALUE 


REFERENCES 




ABA:>e 


- 


000000 


7-292 




ACDW1 




000000 


7-292 




ACDW2 




000000 


7-292 


7-292 


ACPUOP 


_ 


000000 


7-292 


ADDWO 


- 


000000 


7-292 




ADDU1 


_ 


000000 


7-292 




ADDW10 




000000 


7-292 




AODwn 


- 


000000 


7-292 




ADDW12 




000000 


7-292 




A00W1 3 


- 


000000 


7-292 




ADOWK 


- 


000000 


7-292 




ADDW15 




000000 


7-292 




ADDW2 




000000 


7-292 




ADDW3 




000000 


7-292 




AODWA 




000000 


7-292 




AODWS 




000000 


7-292 




A0DU6 


- 


000000 


7-292 




A0DW7 


- 


000000 


7-292 




A0DW8 


- 


000000 


7-292 




A00W9 


- 


000000 


7-292 




ADEVCT 


- 


000000 


7-292 


7-292 


AOEVM 


- 


oooooc 


7-292 




AENV 


- 


000000 


7-292 


7-292 


AFNVM 




000000 


7-292 


7-292 


APATAL 


- 


000000 


7-292 


7-292 


AMADR1 


- 


000000 


7-292 


7-292 


AMADR2 




000000 


7-292 




AMADRB 


- 


000000 


7-292 




AMAOPA 


- 


000000 


7-292 




AMAMS1 


- 


000000 


7-292 


7-292 


AMAMS2 




000000 


7-292 




AMAMS3 


- 


000000 


7-292 




AMAMSA 


- 


000000 


7-292 




AMSGAD 


- 


000000 


7-292 


7-292 


AMSGLG 


- 


000000 


7-292 


7-292 


AMSGTY 


- 


000000 


7-292 


7-292 


AMTYP1 




000000 


7-292 


7-292 


AMTYP? 


- 


000000 


7-292 




AMTYP3 


- 


000000 


7-292 




AMTYP4 


- 


000000 


7-292 




APASS 


- 


000000 


7-292 


7-292 


APR] OR 


- 


000000 


7-292 




APTCSU 




OOOOAO 


07-291 


28-743 


APTENV 




000001 


7-291 


*7-293 


APTSI2 


= 


000200 


07-291 


8-300 


APTSPO 




000100 


7-291 


#7-293 


ASUREG 




000000 


7-292 


7-292 


ATESTN 




000000 


7-292 


7-292 


AUNIT 




000000 


7-292 


7-292 


AUSWR 




000000 


7-292 


7-292 


AVECT1 




000000 


7-292 




AVECT^ 




000000 


7-292 





PAGE 1 
SEQUENCE 5A 
CREF VOI 



C 5 



28-743 
28-743 



SYWOL 

SVWOL 

BEGIN 

BITO 

BITOO 

BITOl 

BIT02 

BIT03 

BUCK. 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

B1T1 

BIT10 

BIT11 

BIT12 

B1T13 

BITU 

Bins 

BIT2 

Birs 

GIT4 

BITS 

BIT6 

9IT7 

BITS 

BIT9 

BOOT 

BPTVEC 

CACHVE 

CHECK 

CONTRL 

CPUERR 

CR 

CRLF 

DAT 

DATA 

00 ISP 

OISPLA 

OISPRE 

OOUN 

OSWR 

OVEC 

EMTVEC 

END 

ERRAD 

ERROR 

ERRPC 
ERRVEC 
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SEQUENCE 55 
CREF vol 



D 5 



VALUE 


REFERENCES 


#8-300 








00K24 


7-281 








000001 


#7-280 


7-280 








000001 

www • 


#7-280 


22-658 




_ 


000002 


#7-280 


7-280 






000004 


#7-280 


7-280 








000010 


#7-280 


7-280 


24-725 




- 


000020 


#7-280 


7-280 




— 


000040 


#7-280 


7-280 






- 


000100 


#7-280 


7-280 


8-309 




- 


000200 


#7-280 


7-280 




- 


000400 


#7-280 


7-280 






- 


001000 


#7-280 


7-280 






_ 


000002 


#7-280 










002000 


#7-280 








- 


004000 


#7-280 








- 


010000 


#7-280 








- 


020000 


#7-280 








- 


040000 


#7-280 








- 


100000 


#7-280 








- 


000004 


#7-280 








- 


000010 


#7-280 








- 


000020 


#7-280 








- 


000040 


#7-280 










000100 


#7-280 










000200 


#7-280 










000400 


#7-280 










001000 


#7-280 












9-340 


#33-874 






- 


000014 


#7-280 








- 


000114 


#7-280 


•8-502 








004064 


18-577 


18-581 


#21-607 




- 


1 77746 


#7-280 








- 


1 77766 


#7-280 




28-743 






000015 


#7-280 


28-743 


30-767 


- 


000200 


#7-280 


28-743 


28-743 




33-880 


33-882 








006^10 


30-773 


#30-781 


#23-714 






004566 


20-589 


21-609 




- 


177570 


#7-280 


8-300 


•8-300 




_ 


177570 


#7-298 


•8-300 






000174 


#7-281 


8-300 








010107 


23-703 


#33-876 






_ 


177570 


#7-280 


8-300 




#23-710 




004554 


8-301 


23-686 


23-695 




000030 


#7-280 


•12-452 


•12-453 


#33-884 




010502 


20-591 


21-611 


22-650 




004546 


•23-669 


#23-708 




10-388 




104000 


#7-280 


10-365 


10-377 




12-488 


13-503 


14-515 


15-529 




006546 


#30-749 


•30-766 


30-784 






000004 


#7-280 


8-300 


•8-300 


•8-300 




•15-532 


•17-555 


•17-569 


25-737 



30-767 



30-781 



30-805 



33-877 



33-879 



11-413 
16-547 

'13-498 
25-737 



11-424 
17-563 

•13-505 
•25-737 



11-435 
21-623 

•14-509 
•25-737 



12-466 
#30-748 

•14-518 
•25-737 



12-^77 



•15-524 
•25-737 



CREATED Qy 1ACR0 ON 6-APR-81 AT 



SYMBa CROSS REFERENCE 
SYMBOL VALUE 



U:09 PAGE 3 

SEQUENCE 56 
CREF VOI 



E 5 



EXPOAT 
EXP. AO 
EXP. PS 
EXP.SP 
f IN 
fLAG 
GNS 



HDWPf L 
MlADRS 
HITMIS 
HT 

ILLDWN 

ILLUP 

lOTVEC 

KDPARO 

KDPAR1 

KDPAR2 

K0PAR3 

KDPAR4 

<DPAR5 

KDPAR6 

KDPAR7 

KDPDRO 

KDPDR1 

KDPDR2 

KDPDR3 

KDPDRA 

KDPDR5 

<DPDR6 

KDPDR7 

KERSTK 

tClPARO 

K I PARI 

KIPAR2 

KIPAR3 

K I PARA 

K I PARS 

KIPAR6 

KIPAR7 

KIPDRO 

KIPDRI 

KIP0R2 

KIP0R3 

KIPDRA 

KIPORS 

KIPDR6 

KIPDR7 



C07660 
007664 
00767A 
007670 
007042 
004562 
•••••• 



010371 
1 77742 
177752 
0O0011 
0u4534 
004522 
000020 
1 72360 
1 72362 
1 72364 
1 72366 
1 72370 
172372 
1 72374 
1 72376 
172320 
1 72Z22 
1 72324 
1 72326 
172330 
1 72332 
1 72334 
1 72336 
001100 
1 72340 
172342 
1 72344 
1 72346 
172350 
1 72352 
1 72354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



REFERENCES 

•25-737 

•21-621 

•10-375 

•10-386 

•10-363 

30- 793 
•15-523 

7-281 

17-552 

29-745 

31- 817 
31-835 
9-345 

#7-280 
*7-280 
#7-280 

23-686 

23-668 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 



25-737 

21- 626 
10-379 
10-390 
10-367 

#30-803 
•23-666 
7-281 
18-576 
29-745 
31-819 

#33-881 

22- 648 

28-743 
#23-702 
#23-698 



•24-717 



•20-599 
•24-721 
•24-723 
•24-718 



•24-720 
*2i*-72i* 



•25-717 


•25-737 


•25-737 










32-839 


33-860 


#33-862 










•11-433 


11-437 


•12-475 


12-4 79 


32-843 


33-860 


#53-864 


•11-422 


11-426 


•12-486 


12-490 


32-851 


33-861 


#33-868 


• 1 1-4 1 1 


11 -41 5 


♦ lc-464 


1 c-**bo 


52-0*t f 


33-060 


#33-ooc. 


•23-667 


#23-712 












10-355 


1 1 -400 


12-447 


13-495 


14-507 


15-520 


16-537 


29-7 


29-745 


29-745 


29-745 


29-745 


29-745 


29-745 


29-71,5 


30-767 


30-781 


30-783 


30-797 


30-800 


30-805 


31-821 


31-823 


31-825 


31-827 


31-829 


31-831 


31-833 



28-743 



25-717 



21-620 



25-737 



•21-635 •24-719 



CKKACC 






SYMBOL 


CROSS REFER 


SvMBa 


VALUE 


KSP 




X000006 


LF 


- 


000012 


LIMIT 




004 56A 


LKS 




1 77546 


LKVEC 


- 


000100 


LOAD 




X)3760 


LOADRS 


- 


1 77740 


LRTI 




001422 


MAINT 


- 


177750 


MAP 




004570 


mapho 


- 


1 70202 


MAPhOO 


— 


1 70202 


("tAPHOI 


- 


1 70206 


MAPH02 




1 7021 2 


MAPHO 5 




170216 


MAPH04, 




1 70222 


MAPHO 5 




1 70226 


MAPH06 


r 


170232 


MAPHO 7 




1 70236 


MAPHI 


— 


1 70206 


MAPHIO 


- 


1 70242 


MAPHll 




1 70246 


MAPH12 


- 


170252 


MAPH1? 


- 


1 70256 


MAPHU 




1 70262 


MAPH15 


- 


1 70266 


MAPH16 


- 


1 70272 


MAPH17 




1 70276 


MAPH2 


- 


170212 


MAPH20 


- 


1 70302 


MAPH?1 




1 70306 


MAPH2? 


- 


170312 


MAPH?5 




170316 


MAPH24 


= 


1 70320 


MAPH?5 




1 70326 


MAPH^b 




170332 


MAPH?7 


= 


1 70336 


MAPH3 


r 


170216 


MAPH50 


= 


170342 


MAPH51 




170346 


MAPH32 




170352 


MAPH35 




170356 


MAPH3A 


- 


1 70362 


MAPH35 


= 


170366 


MAPH36 




1 70372 


MAPH37 




1 70376 


MAPH<i 




1 70222 


MAPH5 




^ 70226 


MAPH6 




^702l2 


MAPH7 




170236 


MAPLO 




170200 


maploo 




170200 



y MACRO OH 6-APR-8'' AT 



REFERENCES 




♦7-280 




#7-280 


28-743 


•8-316 


20-588 


#7-280 




#7-280 




18-574 


#20-587 


#7-280 


22-650 


#7-299 


12-452 


#7-280 




17-556 


20-587 


#7-280 




#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 


7-280 


#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 




#7-280 


7-280 



14:09 PAGE 4 

SEQUENCE 57 
CREF VOI 



28-743 

21-608 #23-713 



12-'.73 12-475 
21-607 #24-717 



CKKACC 



SYMBOL 



CREATED BY MACRO ON 6-APR-81 AT 
CROSS REFERENCE 



1A:09 PAGE b 

SEQUENCE 58 
CREF VOI 



6 5 





VALUE 


'•L ' C T nice J 


7-P80 

r C Ow 




MADr ni 




1 7\j2\y* 


M 7-7ftn 
* ' cow 








1 7A'51 A 


*' cOW 


7.780 

r C Ov 








1 ^AOI / 

1 /^Uc 1 H 


^ f COv 


7-280 

f COW 








1 f\Jdc\J 




7-280 

r C OW 




MAPI 




1 7A^O/ 

1 f\jcc'* 




7-280 

r C OW 




MADI HA 




^ 7A'^TA 

1 fyJdov 




7-280 

r C OW 




MADI rt7 








7-P80 

f C Ov 




MADI 1 












MAPI 1 n 




1 7A0/ A 


#7-?Rn 






MADi 1 1 






W ' c Ow 






MADI 1 ? 












MAPI 1 7 












MAPI 1^ 




1 7A7AA 








MAPI 1 ^ 




1 7A7A/ 
1 '^UcOh 


' c Ow 






MAPI 


— 


1 70770 
1 f\Jcf\) 








MAPI 1 7 




1 7077/. 


#7-280 

" ' COW 






MAPI 7 




1 7071 O 








MAPI 70 




1 70700 

r r U5UU 


#7.780 

w ' COV 






MAPI 71 




1 7070Z. 


#7.780 

fV r COW 






MAPI 77 




1 7071 O 

1 ryjo 1 w 


#7.780 

^ ' COW 






MAPI 77 




1 7071 Z. 

1 f U / 1 H 


#7-280 

pv r COW 






MAPI 7^ 




1 70770 


#7-280 

w r CWW 






MAPI 7'i 




1 7077Z. 


#7-280 

~ f COW 






MAPI 7A 




1 70770 


#7-280 

^ ' COV 






MAPI 77 




1 7r\XXL 


#7-280 

W t ^ WW 






MAPI 7 




1 7071 L 


#7-280 

99 f COW 






MAPI 70 




1 70TZ.0 


#7-280 

99 f COW 






MAPI 71 




1 7f\XLL 


#7-280 

" f COW 






MAPI 77 




1 707<iO 


#7-280 

P» r CWW 






MAPI 77 




1 707^i 
1 f Uj?** 


#7-280 

wr r COW 






MAPI 7^ 




1 707A0 
1 f\jjO\J 


#7-280 

WW f CWW 






MAPI 




1 707AA 


#7-280 

w r bWV 






MAPI 7A 






#7-280 

»» r COW 






MAPI 77 




1 7077A 

1 r\Jjf H 


" F cow 






MAPI L 




1 70220 


#7-280 

w f COW 






maplS 




1 7077Z. 


#7-280 






MAPI A 




1 70770 


#7-280 

^ f C OW 






MAPI 7 




1 7077Z. 


#7-780 

" ' c ow 






nc riC 




1 777/./. 


#7-780 

" ' c ow 


22-655 

C C \JJ J 


22-661 

C C WW I 


MMF PP 




r\rsi AAA 


C " ' c w 


#24-728 

^ C "t ' C V 


C ~ • C ' 


MMpn 




1 77<;77 


#7-780 

" ' c ow 

c 1 w JO 


7-280 

' C Ov 


•17-560 

1 r ^UW 


MMD1 




^ 77Q7/. 


#7-780 

^ f c OW 


7-P80 

r C OW 








1 77C7A 


#7-780 

" ' C OW 


7-280 

' C Ov 




MMR7 




1 77^1 A 

1 '^CJ 1 O 


#7-780 

" ' COW 


7-280 


•24-725 

C ~ ' C ^ 






ooopso 


#7_7fi0 

" f c ow 


•1 7-557 


•20-590 

cw ^ ^w 


PARE RR 




004260 


8-302 


#22-643 




parflg 




004262 


•8-303 




*22-662 


PAR. OF 




007702 


•21-620 


21-625 


32-857 


PFAIL 




00U16 


#7-295 


•8-323 
15-527 


8-526 








K-5n 


16-542 


f'lRG 






#7-280 







•22-661 

•17-567 -20-595 
•21-610 ^24-726 



•20-600 ^20-602 



•21-613 "PI -6 '.6 



33-861 
•8-332 

17-559 



#53-871 
9-343 
18-578 



10-558 



11-405 



12-4S4 



15-500 



CREATED Br MACRO ON 6-APft-81 U:C9 







KC > CKCnltC J 








\/Al • C 

VALUt 






PI ROVE 


= UOO^hU 


•7— ?BA 








AA77A/. 


«XX-ft77 




? 3-695 




AA/.'SiLA 

UU*»5oU 


O jU 1 






C J OO 1 












#77-878 


#9-3^8 


DDC T C T 


AA5A5A 


V J JO 






AA7<»TZ. 




70-790 


#33-860 


DOT r Tl 
KH 1 1 1 L 


nA71 1 A 


70-771 


#71-816 






- AAAAAA 


«7-?Rn 






D0 1 




m7-PR() 

• ' cOw 








- AAA1 AA 
= UUU 1 W 


• r — cOU 






PR 3 


- AAA1/.A 


«7-?RA 
• f~cO\J 








- AAA5AA 


#7-?Rn 

• 1 cO\J 






I'M J 




• f cou 








- AAA7AA 


«7-?Rn 

m f —cOU 








- AAA1Z.A 


*7-.?Rn 

w f cOU 




•10-356 

IV ^ ^ w 


DC 


- 1 7777A 




7-P80 




•1 7-SS^ 


•18-S77 




DCU 


- \ f f f r O 








CXJDV/P r 




#7-280 


21-627 


32-841 


DC rnA T 
Kt LUA I 




c 1 oc c 




Uv' OOO 




10-380 


•n-434 


DF r DC 


nA7^7A 


•10-^87 


10-391 


•1 1-423 


DC r CD 


nA7A7? 
UUf Of t 




1 0-368 


•11-412 


DC cwc r 

KC JVC L 


- nnnnin 

— UUUU 1 v 


#7-280 






Din 

K 1 V, 


-*AAAAAn 


*7-?fif) 






Rll 


=X000001 








K 1^ 


-VAAAAA? 








D1 1 

K 1 5 


-i'AnnAA7 


m7-?RC) 

ff f CO\J 






H 1 H 


-*AnAAAZ. 


ll7-yfKC\ 

n t CO\J 






D1 C 


-*AAAAAC 


M7~7RCi 

n 1 —cOU 




• ?3-67<. 


KO 




*7-PRf) 


•P7-673 




•P7-69P 


•23-693 


d7 
Kf 


-tnnnnn? 


M7~7f^C\ 

* r cOv 




30-807 

J V W ' 


C A\/DA 


UV/OOUt 




#70-757 


C AV/DI 






#30-758 


30-808 






•70-752 


#30-759 


30-809 


jMVK J 




•70-753 


#30-760 

~ JV ' w 


30-810 


VKH 




•70-754 


#30-761 

~ _7 V ' V 1 


30-81 1 


c AvyoC 


UV/OO 1 


•70-755 


#30-762 


30-812 




AAXC/,A 


•P7-ft79 


23-685 

c ^ UO<^ 


#23-711 


crnoc 

jLUrC 




*7-P80 








— 1 f ccOv 


#7-280 








- 17??A? 
1 1 ccoc 


' cow 








- 1 7P?A^ 


w f cow 






il/~MK J 


- 1 7?yf\f% 

— I f ccuo 








S0PAR4 


= 


#7-280 






SDPAR5 


= 172272 


#7-280 






SDPAR6 


= }7227^ 


#7-280 






SDPAR7 


- 172276 


#7-280 






SOPORO 


= 172220 


#7-280 






SDPDR1 


= '.72222 


#7-280 







PAGE 6 
SEQUENCE 59 
CRfcf VOI 



H S 



19-584 



•11-403 



33-860 
11-438 
11-427 
11-416 



• 12-449 •13-497 •U-SIS •15-522 •16-559 



#33-863 
•12-476 
12-487 
•12-465 



12-480 32-845 33-860 #33-865 
12-491 32-853 33-861 #33-869 
12-469 32-849 33-861 #33-867 



•23-675 
•23-694 



•23-676 •23-677 ^23-678 •23-689 •23-690 



fREATFD BY MAC»0 ON 6-APR-81 



'i♦^«OL CROSS REFERENCE 

S¥l««OL VALUE 

SDPDR^ - 

SDPDR3 = 17P226 

SDPDR4 = 172230 

SDPDR5 = 172232 

SDPDR6 = 172234 

SDPDR7 - 172236 
SET PAR 004672 

SI PARC = 172240 

SI PARI = y722t*2 

SIPAR2 = 172244 

SIPAR3 = 172246 

SIPAR4 = 172250 

SI PARS = 172252 

SIPAR6 = 172254 

SI PAR 7 = 172256 

SIPDRO = 172200 

SIPDR1 = 172202 

SIPDR2 = 172204 

SIPDR3 ^ 172206 

SIPDR4 = 172210 

SIPDR5 = 172212 

SIPDR6 = 172214 

S1PDR7 = 172216 

SIZEHI = 177762 

5IZEL0 = 177760 

SftO = 17^572 

SRI = 177574 

SR2 = 177576 

SR3 = 172516 

SSP =«000006 

STACK = 001100 



STACKl = 000500 



STKLMT 
SUPMSG 
SUPSTK 
SWR 

SWREU 

SUO 

SWOO 

SW01 

SW02 

sy03 
sy04 

SU05 
SW06 
SW07 
SwG8 



1 77774 
010151 
000700 
177570 

0001 76 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 



REFERENCES 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
9-354 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 

11- 402 

12- 472 
18-580 

#7-282 

12- 488 
#7-280 

9-342 
#7-280 
#7-297 

13- 506 
#7-281 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-28C 
#7-280 



23-687 
23-680 
•?'i-732 
•25-733 
•25-734 



25-737 



7-280 

11- 408 

12- 483 
23-672 
10-365 

13- 503 

#33-877 

7- 298 

14- 519 

8- 300 

7-280 
7-280 
7-280 
7-280 
7-280 
7-280 
7-280 
7-280 
7-280 



U:09 PAGE 7 

SEQUENCE 60 
CREF VOI 



I 5 



#25-731 
23-688 



•25-731 



•25-737 •25-737 



•25-737 •25-737 



7-280 

11-409 

.13-501 

10-377 
14-515 



•8-300 
15-556 



7-280 
11-419 

14- 512 

10-388 

15- 529 



8-300 
16-551 



8-300 

11-430 

14-517 

11-413 
16-547 



•8-300 
17-570 



10- 361 
12-450 

16- 541 

11- 424 

17- 563 



•8-300 
18-582 



10- 371 
12-458 
16-550 

11- 435 
21-623 



10-394 



10-372 
12-460 
1 7-561 

12-466 



ll-<,^ 



10-383 
12-462 
17-568 

12-477 



12-494 



SYMBa 
SW09 
SWl 
SWIO 

sun 

SWT 2 

Swl! 
swu 

SW15 

SW2 

Sw3 

SW4 

SW5 

SU6 

SW7 

SW8 

5W9 

SYSTID 

T8ITVE 

TITL 

TITLE 

TKVEC 

TPVEC 

TRAPVE 

TRTvEC 

TST1 

TST10 

TSTII 

TST2 

TST3 

TST4 

TST5 

TST6 

TST7 

TYPDS 

TYPE 



TYPOC 

TYPON 

TYPOS 

UDPARO 

UDPAR1 

UDPAR2 

U0PAR3 

UDPAR* 

UDPAR5 

UDPAR6 



CREATED BY MACRO 0^ 6-APR-81 AT 



CROSS REFERENCE 
VALUE 
= 001000 
= 000002 
= 002000 
= 004000 
= 010000 
020000 

- CAOOOO 

= 100000 

- OOOOOA 
= 000010 
= 000020 
= OOOOAO 
= 000100 
= 000200 

- OOOAOO 

- 001000 
= 177764 

- OOOOU 
006616 
007737 

= 00006C 
r 000064 
= 000034 

000014 

002036 

003420 

003552 

002254 

002504 

002764 

003070 

003200 

003320 
= 104405 

- 104401 



104402 

104404 
104403 
1 77660 
1 77662 
177664 
177666 
1 77670 
1 77672 
1 77674 



REFERENCES 

#7-280 

#7-280 

#7-280 

#7-280 

#7-280 

#7-280 

#7-280 

18-582 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 

30-756 

9-339 
#7-280 
#7-280 
#7-280 
#7-280 
#10-355 
#17-552 
#18-571 
#11-400 
#12-447 
#13-495 
#14-507 
#15-520 
#16-537 

9-341 

9-339 

11-400 

16-537 

23-702 

30- 797 

31- 827 
#29-745 

32- 853 
#29-745 
#29-745 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 
#7-280 



7-280 



10-394 



#30-764 
#33-873 



•8-300 

10- 394 

17- 570 

18- 582 

11- 441 

12- 494 

13- 506 

14- 519 

15- 536 

16- 551 

19- 584 
9-340 
12-447 
16-537 
26-739 

30- 799 

31- 829 
30-784 

32- 855 

30-782 



14:09 PAGE 8 

SEQUENCE 61 
CREF vol 



J 5 



11-441 



►8-300 



12-494 



13-506 



14-519 



15-536 



16-551 



17-570 



#29-745 














9-342 


9-345 


9-347 


9-349 


10-355 


10-355 


11-400 


12-447 


13-495 


"3-495 


14-507 


14-507 


15-520 


15-520 


17-552 


17-552 


18-576 


18-576 


19-584 


19-584 


25-698 


27-741 


28-743 


#29-745 


30-767 


30-781 


30-783 


30-785 


30-800 


30-805 


31-817 


31-819 


31-821 


31-823 


31-825 


31-831 


31-833 


31-835 








32-851 


32-839 


32-841 


32-843 


32-845 


32-847 


32-849 


32-857 















' <HACC 




CREATED BY 


MACRO ON 6- 


-APR-81 / 


SYMBOL 


CROSS REFERENCE 






SYl>BOL 


VALUE 


REFERENCES 




UDPAft? 




1 77676 


*7-280 




UDPDRO 


_ 


1 776P0 


*7-280 




U0PDR1 




1 77622 


#7-280 




J0PDR2 




1 7 762 A 


#7-280 




UDPDR3 




1 77626 


#7-280 




UDPDR4 




1 77630 


#7-280 




U0P0R5 




1 77632 


#7-280 




UDP0R6 




1 77634 


#7-280 




UDPDR7 


_ 


1 77636 


#7-280 




LiPAfiO 


_ 


1776A0 


#7-280 




UlPARt 


- 


177642 


#7-280 




UIPAR2 




1 77644 


#7-280 




UIPAR3 


- 


1 77646 


#7-280 




U I PARA 


- 


177650 


#7-280 




U I PARS 


- 


177652 


#7-230 




UIPAR6 


_ 


177654 


#7-280 




UIPAR7 


- 


1 77656 


#7-280 




UIPDRO 


- 


1 77600 


#7-280 




UIPDRl 


_ 


1 77602 


#7-280 




UIPDR2 


- 


1 77604 


#7-280 




UIPDR3 




1 77606 


#7-280 




UIPDRA 




17761C 


#7-280 




U1PDR5 




177612 


#7-280 




UIPDR6 




177614 


#7-280 




JIPDR7 




177616 


#7-280 




UPF 




010037 


23-699 


#33-875 


USESTK 




000600 


#7-280 




USP 


-X000006 


#7-280 




USRPFL 




010311 


9-347 


#33-880 


UVEC 




004550 


23-668 


23-681 


VIR.AD 




007700 


•21-617 


•21-618 


XYZ 




001420 


#7-296 


8-332 


SAPTHD 




001100 


7-291 


#7-291 


$ASTAT 




****** 


7-293 


7-293 


SATYC 




001 1 74 


7-293 


#7-293 


SATYl 




001 1 50 


#7-293 




SATY3 




001156 


#7-293 


28-743 


(ATY4 




001166 


#7-293 




SCHARC 




006452 


*28-743 


•28-743 


SCKSWR 




****** 


29-745 




SCMTAG 




****** 


8-300 


8-300 


SCORE 




005326 


25-737 


#25-737 


SCPUOP 




001142 


#7-292 




SCRLF 




006473 


9-349 


28-743 


fCROUT 




005356 


25-737 


#25-737 


SOBLK 




006102 


27-741 


27-741 


SOEVCT 




001124 


#7-292 




SDOAGN 




003734 


19-584 


19-584 


SOTBL 




006072 


27-741 


#27-741 


SENOAD 




003724 


7-289 


9-337 


SENOCT 




003672 


8-300 


#19-584 


SENOMG 




003743 


19-584 


#19-584 



PAGE 
SEQUENCE 
CREF 



K 5 



62 
vol 



#23-709 
•21-619 
9-343 



21-624 32-855 



33-861 



#33-870 



28-743 

28-743 
#27-741 
#19-584 
#19-584 



•28-743 #28-743 



28-743 #28-743 



rrKACC 



CREATED BY MACRO OH 6-APR-81 AT 



SfMBOL CROSS REFERENCE 
SYMBOL VALUE 
IE NULL 0O37A0 



tENV 

tENVM 

IE OP 

tEOPCT 

lERROR 

SFTABL 

tETEND 

tFATAL 

$FFLG 

»FILLC 

tFILLS 

SGET4? 

SGTSWR 

SHD 

SHIBTS 
SKTNEX 

$k:out 

$KT11 

tLF 

SLFLG 

tLSTAD 

SLSTBK 

tMADRI 

tMAIL 

$«AMS1 

SWAP 

SMAPRG 

SMBAOR 

SMFLG 

SMMOUT 

SMSGAO 

SMSGLG 

tMSGTY 

IMTYPI 

tNOMAP 

SNULL 

SNWTST 



tOCNT 

fOMODE 

IPASS 

IPASTM 

SQUES 

SRDCHR 

SROOEC 

tRDLiN 

SROOCT 

SRTNAD 

W2A 



001134 
001135 
005646 
003664 
006550 
001 1 34 
001150 
001116 
001414 
006470 
006467 
003714 

r ****** 

= 000000 
001100 
005320 
005256 
005010 
006474 
001413 
005434 
005436 
001146 
001114 
001144 
005102 
005106 
001102 
001412 
005300 
001130 
001 1 32 
001114 
001145 
005126 
006466 

= 000001 



005662 
005664 
001122 
001106 
006472 
_ *•*••* 
*••••* 
••***• 

- *••••* 

003736 

- ••••** 



REFERENCES 

10-355 

19-584 
»7-292 
»7-292 
#19-584 
•8-300 

7-285 
#7-292 

7-291 
#7-292 
•7-293 

28-743 

28- 743 
#19-584 

29- 745 

#7-291 

25-737 

2S'7Z7 
•8-309 

28-743 
•7-293 
•25-737 
•8-311 
ff7-292 

7-291 
tt7-292 
•25-737 

25-737 
#7-291 
•7-293 

25-737 
#7-292 
#7-292 
M7-292 
M7-292 

25-737 

28-743 
#9-355 
#12-495 
#15-537 
•26-739 
•26-739 
#7-292 
#7-291 

28- 743 

29- 745 
29-745 
29-745 
29-745 

#19-584 
29-745 



n-400 

#19-584 
7-293 
7-293 

#19-584 
12-459 

#7-292 
•7-293 
•7-293 
28-743 
28-743 



7- 244 

#25-737 
#25-737 
#25-737 
28-743 
#7-293 
#25-737 

8- 312 

7-291 

•25-737 
#25-737 

7-293 
#25-737 
* 7-293 
♦7-293 

7-293 

#25-737 
28-743 

9- 355 
12-495 
15-537 

•26-739 
•26-739 
•8-300 

28-743 



14:09 PAGE 10 

SEQUENCE 63 

CREF VOI 



L 5 



12-447 
30-785 

7- 293 

8- 300 

19-584 
#30-750 



7-293 
28-743 
#28-743 



7-244 



25-757 
•25-737 
#28-743 



•25-737 

#7-292 

#25-737 

•7-293 
7-293 
•7-293 



13-495 
30-799 
28-743 
28-743 



•7-293 
#28-743 



•25-737 

#25-737 
8-300 
25-737 

#7-293 
7-293 



14-507 



28-743 



15-520 



16-537 



17-552 



18-576 



#7-293 



28-743 
25-737 



•7-293 



28-743 


#28- 


■745 










#10-355 


#10- 


■400 


10- 


■400 


#11- 


■400 


#13-495 


#15- 


'507 


15- 


■507 


#14-507 


#16-537 


#16- 


■552 


16- 


-552 


#17- 


•552 


#26-739 












-759 


26-739 


• 26- 


■759 


•26- 


-759 


#26- 


•8-300 


•19- 


■584 


•19- 


-584 


19- 


-584 


#28-743 















#11-447 
#14-520 
#17-571 



19-584 



11-447 
14-520 
17-571 



19-584 



#12-447 
#15-520 
#18-571 



fKJCACC 



CREATED BY »1ACR0 ON 6-APR-81 AT 



SYMBOL CROSS REFERENCE 
SY^L VALUE 
SSAVPC = 000204 
SSAVRE = •••••• 

tSETUP = 000024 



SSIZE 

SSIZEX 

SSTOP 

IS TUP 

SSVPC 

SSWR 



tSWREG 
tTFSTN 

STKB 
tTKS 
STN 



$TPB 

STPFLG 

STPS 

STRAP 

$TRAP2 

$TRP 



$TRPAD 

STSTM 

STYPBN 

tTYPDS 

STYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

tTYPOS 

SUNIT 

SUNITM 

$USb» 

tXOFF 

tXON 

tSGET4 

tOFiLL 

.SASTA 



004724 
005362 
005104 

1 nm 

000204 
040000 



001136 
001120 

006460 
006456 
000012 



006464 
006471 
006462 
006476 

006520 
000006 



006532 
001104 

005666 
006112 
006324 
006454 
005464 
005500 
005440 
001126 
001110 
001140 
= 000023 
= 000021 
= OOOOOO 
005663 
****** 

oonoo 



REFERENCES 
#7-283 

29-745 
#7-288 

8-300 

19-584 

8-310 

25- 737 
•25-737 
#7-288 
#7-289 
#7-241 

7- 247 
17-552 

#7-292 
#7-292 
•18-572 

28-743 

28-743 
#7-242 

11-400 

13- 495 

14- 520 
•16-551 
•18-576 

28-743 
28-743 

28- 743 

8- 300 
#29-745 
#29-745 

29- 745 
29-745 
29-745 

#7-291 

29-745 
#27-741 

7-293 

28-743 

28-743 
#26-739 

26- 739 
#26-739 
#7-292 
#7-291 
#7-292 

28-743 

28-743 
#19-584 
•26-739 

7-293 
#7-291 



14:09 PAGE 11 

SEQUENCE 64 

CREF vol 



n 5 



7-287 

7- 288 

8- 300 

#25-737 
25-737 
•25-737 
#7-288 
7-289 

7- 244 

8- 300 
18-571 
8-300 

•9-348 
30-782 
28-743 
28-743 
7-244 

#11-400 
13-495 

15- 520 

16- 552 
18-582 
28-743 
28-743 

28- 743 
#29-745 

29- 745 
29-745 

#29-745 
29-745 
#29-745 



29-745 
#28-743 
28-743 

28- 743 

29- 745 
#26-739 

29-745 



28-743 
28-743 
19-584 
•26-739 
7-293 
7-291 



#7-288 
8-300 


7- 288 

8- 300 


»7-28S 
8-300 


8-300 
8-300 


8-300 
8-300 


8-300 
8-300 


8-300 
19-584 


#25-737 
#25-737 
7-288 


25-737 
#7-288 


#7-288 


7-288 








7-247 

10-355 

19-584 


7-2(*7 

11-400 

19-584 


7-2^7 

}2'i*t*7 

19-584 


7-247 

13-495 

19-584 


7-21.7 

14-507 

19-584 


7'2W 
15-520 


7-2W 
16-537 


♦11-401 


•12-448 


•13-496 


•14-508 


•15-521 


•16-538 


•17-553 


28-743 
28-743 

V— JJ J 

11-441 
#13-495 
15-520 
1 7-i52 


28-743 
28-743 

1 U J J J 

11-447 
•13-506 
#15-520 

17-552 


#28-743 
#28-743 

1 U 3j J 

12- 447 

13- 507 
15-536 

#17-552 


^2-^^7 

14- 507 

15- 537 
•17-570 


10-^9^ 
lt\2-(.(.7 
14-507 

16- 537 

17- 571 


12-494 
#14-507 
16-537 
18-571 


1 1- 400 

12- 495 
•14-519 
#16-537 
#18-571 


28-743 
28-743 
28-743 


#28-743 
#28-743 
»2%-7t*Z 




* 








29-745 


29-7^5 

29-745 

29-7 1^:^ 


29-745 
29-745 
29-7^5 


#29-745 
29-745 
29-745 


29-7^5 
#29-745 
29-745 


29-745 
29-745 
#29-745 


29-745 
29-745 



29-745 
29-745 
28-743 

28- 743 

29- 745 
29-745 



28-743 
26-739 



29-745 
#28-743 
#28-743 



#26-739 



CKKACC CREATED BY MACRO OM 6-APR-81 AT U 

MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
COMMEN #/-280 
ENOCOM #7-280 
ERR #7-255 

#13-503 
ESCAPE #7-280 
GET PR I #7-280 
GETSWR #7-280 
LOOP #7-273 
LOOPX #7-276 
MULT #7-280 
NEWTST #7-280 
PFAIL #7-249 
POP #7-280 
PUSH #7-280 
REPORT #7-280 
SETK #7-270 
SETPRI #7-280 
SETTRA #29-745 
SETUP #7-280 
SKIP #7-280 
SLASH #7-280 
SPACE #7-252 
STARS #7-280 
#11-400 
#16-537 
#28-743 
SURSU #7-280 
TEST #7-263 
TRMTRP #29-745 
TSTNUM #7-266 
TYPBIN #7-280 
TYPOEC #7-280 
TYPNAM #7-280 
TYPNUM #7-280 
TYPOCS #7-280 
TYPOCT #7-280 

32-855 
TYPTXT #7-280 
#30-767 
#31-825 
$tESCA #7-280 
$$NEWT #7-280 
$$SET #29-745 
$$SETM #8-300 
SSSKIP #7-280 
.EOUIV #7-235 

7-280 

7-280 

7-280 

7-280 

7-280 

. HE AOE #7-238 



:09 PAGE 12 

SEQUENCE 65 

CREF V01 



N 5 



#10-365 
#14-515 


#10-377 
#15-529 


#10-388 
#16-547 


#11-413 
#1 7-563 


#11-424 
#21-623 


#11-435 


#12-466 


»}2-i*77 


#12-488 


25-737 


















10-394 
10-394 


11-441 
11-441 


1 2-494 
12-494 


13-506 
13-506 


14-519 
14-519 


15-536 
15-536 


'6-551 
16-551 


1 7-5 7Q 
17-570 


18-582 
18-S82 


#9-355 
#10-358 
#7-293 
#7-293 


#10-400 
#11-405 
#7-293 
#7-293 


#11-447 
#12-454 
#27-741 
#7-293 


#12-495 
#13-500 

#27-741 


#13-507 
#14-511 


#14-520 
#15-527 


#15-537 
#16-542 


#16-552 
#17-559 


#17-571 
#18-578 


10-356 


12-449 


13-497 


14-513 


15-522 


16-539 


17-554 


18-573 




#29-745 
#8-300 


#29-745 


#29-745 


#29-745 


#29-745 










#7-280 

#7-289 

#12-447 

#17-552 

#29-745 

#8-300 

#10-355 


#7-291 

#12-447 

#17-552 

8-300 
#11-400 


#7-291 

#13-495 

#18-571 

#12-447 


#7-291 

#13-495 

#18-571 

#13-495 


#7-292 

#14-507 

#19-584 

#14-507 


1(7-291 

#14-507 

#23-665 

#15-520 


#10-355 
#15-520 
#25-737 

#16-537 


#10-355 
#15-520 
#26-739 

#17-552 


#11-400 
#16-537 
#27-741 

#18-576 


#10-355 


#11-400 


#12-447 


#13-495 


#14-507 


#15-520 


#16-537 


#17-552 


#18-576 


#9-341 


#19-584 
















30-782 
30-784 
32-857 
#10-355 
#30-781 
#31-827 


32-839 

#11-400 
#30-783 
#31-829 


32-841 

#12-447 
#30-797 
#31-831 


32-843 

#13-495 
#30-800 
#31-833 


3t?-845 

#14-507 
#30-805 
#31-835 


32-84 r 

#15-520 
#31-817 


ttyb-517 
#31-819 


#17-552 
#31-821 


#18-576 
#31-823 


9-355 
#29-745 
8-300 


10-400 
#29-745 


11-447 
#29-745 


12-495 
#29-745 


13-507 
#29-745 


14-520 


15-537 


16-552 


17-571 


7-280 
7-280 
7-280 
7-280 
7-280 
7-280 
#7-244 


7-280 
7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 


7-280 
7-280 
7-280 
7-280 
7-280 



:«»f ATED "lACRO 0^ 6-*P«-81 AT 



•U^RO CROSS »»CfE»ENCE 



•lACPO 
.SETUP 

.SyfrLO 

.UCT1 

.lAPTB 

.»APTH 

.UPTV 

•tCATC 

.KOP 

.SPOUE 

.»S1ZE 

.»mAP 
.trrPD 

,»TYPf 
.tTVPO 

- 1 1 7:) 



REFERENCES 
#7-258 
#7-238 

#7-239 
#7-239 
#7-239 
#7-239 
#7-238 
#7-238 
#7-238 
#7-2 ?9 
#7-239 
#7-239 
#7-238 
#7-238 
#7-238 



#7-239 
07'2i.7 

#7-289 
7-292 
7-291 
7~29l 

»7'2S^ 
19-58A 

25- 737 
#29-745 
»27'7^} 

2S'7(.$ 

26- 739 
#7-280 
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SEQUENCE 66 

CREF VCI 



#7-288 



